ceeeeecin 


EEE HHH NNN NNN GGGGGGGGGGGG 
EEE HHH NNN NNN GGGGGGGGGGGG 
EEE XXX XXX CCC HHH HHH NNN NNN 
EEE XXX XXX CCC HHH HHH NNN NNN GGG 
EEE XXX XXX CCC HHH HHH NNN NN GGG - 
EEE XXX XXX Lcc HHH HHH NNNNNN NNN GGG 
EEE XXX = XXX CCC HHH HHH NNNNNN NNN GGG mM 
EEE XXX = XXX CCC HHH HHH NNN NNN GGG a] 
EEEEEEEEEEEE Xx ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG a] 
EEEEESEEEEEE XXX ccc HHHHHHHHHHHHHHH_ NNN NNN NNN GGG mM 
EEEECEEEEEEE XXX ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG 4 
EEE XXX XXX ccc HHH HHH NNN NNNNNN GGG  GGGGGGGGG a] 
EEE XXX = XXX ccc HH HHH NNN NNNNNN GGG G6GGGGGGGG a 
EEE XXX = XXX CCC HHH HHH NNN NNNNNN GGG 6GGGGGGGGG " 
EEE XXX XXX CCC HHH HHH NNN NNN GGG GGG 0 
EEE XXX XXX CCC HHH HHH NNN NNN 6GG GGG 0 
EEE XXX XXX CCC Hi HHH NNN NNN GGG GGG 0 
EEE NNN GGGGGGGGS P 
FEE NNN GGGGGGG4G P| 
EEE NNN GGGGGGGGG . 
P 
P) 


| 
HHH NNN NNN _ GGGGGGGGGGGG | 
GGG 


P| 
P| 
P 
P 
P 
Pp 
P 
P 
P 
R 
R 
R 
R 
R 
R 
R 
$s 
Ss 


**F I LE**1D**EXCRTACP 


EEEEEEEEEE Xxx XX CCCCCCCC RRRRRRRR TTTTTTTTITT AAAAAA CCCCCCCC ~PPPPPPPP 

EEEEEEEEEE Xx XX CCCCCCCC RRRRRRRR TTTTTITTTT AAAAAA CCCCCCCC ~=PPPPPPPP 

EE XX Xx CC RR RR TT As AA CC PP PP 

EE xx xx CC RR RR TT AA AA CC PP PP 

EE XX = XX cc RR RR TT AR AA CC PP PP 

EE XX XK cc RR R TT Aa AA CC PP PP 

EEEEEEEE XX cc RRRRRRRR TT AA AA CC PPPPPPPP 

EEEEEEEE XX cc RRRRRRRR TT aa AA CC PPPPPPPP 

EE XX = XK cc RR RR TT AAAAAAAAAA CC PP 

EE XX = XX cc RR RR TT AAAAAAAAAA CC PP 

EE XX Xx CC RR RR TT AA AA CC PP eoee 
EE Xx xx CC RR RR TT fa AA CC PP cove 
EEEEEEEEEE Xx XX ccCCCCCC SRR RR TT AA AA cccccccc =P eoee 
EEEEEEEEEE Xx XX CcCCCCCC =RR RR TT AA AA cccccccc §=PP coos 
LL III] SSSSSSSS 

LL IIIIII SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] Ss 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL W111! SSSSSSSS 


Oooo 
Oo 


ee ee ee ee ee ed ed ed od od = od 


be 

$ 4 

i; ¢ 

3 0 

. 10 
5 1) 0012 
; ig 8 
3 14 0014 
OB 
3 i$ 6017 
: «18 0018 
: 19 0019 
3 9 0020 
3 1 0021 
3 ; 00 § 
3 00 

: 4 +4 4 
. & 6038 
3 7 00 § 
F 8 0028 
3 9 0029 
3 0 0030 
3 1 Bo, 
3 35 oOa8 
: 4 0034 
3 5 0035 
3 6 0036 
; 0037 
; 0038 
o> 0039 
; 640 0040 
3 41 0041 
; $5 004 
: 4 004 
: 44 044 
s 6$ 045 
; *& 0046 
: 47 0047 
: 48 048 
; «649 049 
. = 050 
at 882 
; 3g iets 


RT11 directory routines 


3 
1b-s =1984 01:19:05 AX-11 Bliss-32 V4.0-74 
14 gep-19 4 93:38:88 FEXCHNG SRE EXCRTACP.B32;1 


MODULE vonostnethany od ZTITLE ‘R111 directory routines’ 


IDENT = 'V04-000' 
ADDRESSING _MODE (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=WORD_RELATIVE) 
= 


BEGIN 


leeetereererereenereneeeeenent PARRA RAAAASLAAAAAALELALELE SESE SERA SESE E ESE ERE 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


os 
® 
® 
® 
& 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i ONLY IN ACCORDANCE WITH THE TER F SUCH LICENSE AND WITH THE ® 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
® 
® 
® 
® 
® 
® 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
Te ne re ae eT / NC REN 


i FACILITY: EXCHANGE = Foreign volume interchange facility 
ABSTRACT: RT-11 directory manipulation routines 

! ENVIRONMENT: VAX/VMS User mode 
AUTHOR: Cw Hobbs CREATION DATE: 29-Nov-1982 


VO3-002 CwH3002 Cw Hobbs 12-Apr-1984 
If the Sirectory shows a device larger than the actual 
n 


i 

i 

i 

i 

i 

' 

i 

i 

MODIFIED BY: 
i 

i 

: device, then print a warning and write lock the volume. 
i 

co 


Include files: 


MACRO Smodule_name string = ‘exch$rtacp’ %; : The require file needs to know our module name 
REQUIRE ‘SRCSTEXCREQ' ' Facility-wide require file 


NN ssw ?:_.e.S 
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EXCHSRTACP RT11 directory routines 16-Sep-1984 01:19:05 AX-11 Bliss-32 V4.0-74 Page 2 
v04-000 Module table tt contents 12-808 -13be 93:38:83 YEXCHNG SRe EXCRTACP.B32;1 ’ (2) 

56 } 9 ZSBTTL ‘Module table of contents’ 

? : § Module table of contents: 

9 154 1 FORWARD ROUTINE 

60 0155 exch$rtacp_check_position : NOVALUE, ! Find directory entry if it has moved 

61 01 § exch$rtacp_clean_directory : NOVALUE, ! Shuffle and/or split directories as needed 

6 01 exch$rtacp_consolidate, ! Compress directory structure 

6 0158 exchertacp_tind.eapty_area, : 

64 0159 exch$rtacp_find_file, ! RT-11 directory search routine 

65 0160 exch$rtacp_next_entry, ' Retrieve next entry from RT-11 directory 

66 8 1 exch$rtacp_verify_directory ! Verify directory structure and compute volume size 


EXCHANGE facility routines 


EXTERNAL ROUTINE 
exch$cmd_fetch_recfmt_implied : NOVALUE, ! Get or assume the value for /RECORD_FORMAT 
exch$cmd_match_filename, 
exch$io_rtll_read, 
exch$io_rtll_write, 
exch$pdp_flush_write_buffer, 


' Compare expanded file names for match 
' Read blocks from a random access device 
! Write blocks to a random access device 
! Flush any records ig B the write buffer 


WOOO O OOO 0090900 0909 09 09 09 09 SII NI NIN INNO AAA AAAAAAMMIMIIVIVIVIUIVIV 


NOUS UN OO ODNAUE WN O DONOUSWN "OO OONOUL WH 


exch$pdp_get, ! Get functions for small PDP record structure 
oxcheede put, Put functions for small PDP record structure 
exch$rtlT_dirseg_flush, Write out directory segments 

exch$rt11_dirseg_get, Return pointer to specific directory segment 
exch$rtll_dirseg_get_nochk : jsb_rir2, Return pointer to directory segment without checking 
exchore ti .dirseg_py 5 Write a specific directory segnent 

exch$rt11_expand_ filename, Convert directory entry to ASCII filename 


exch$util"fao byt ter. 
exch$util-radtx50_from_ascii, 
exch$util_radix50_to_ascii, 
exch$util=rtlictx_alTocate, 
exch$util_rtiictx_release : NOVALUE, 
exch$util_vm_allocate, 
exch$util_vm_allocate_zeroed, 
exch$util_vm_release 


Equated symbols: 
{LITERAL 
Bound declarations: 
‘BIND 


ee ee ee 


Do an FAO conversion 

Convert characters to Radix-50 from Ascii 
Convert characters from Radix-50 to Ascii 
Get an RT=-11 context block 

Give it back 

Get some virtual memory 2 

Get some virtual memory, initialized to zero 
Return some virtual memory 
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| 
Find free space 
| 
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RT11_ directory routine 


| 
exchSrtacp. check position (ctx) 


CEEWER ACP 


N 3 
1o-808- 1382 93:33:93 pene Oh ieee V4.0-74 Page ; 
( 


$block_check (2, .ctx, rtilctx, 443); 
$block_ check ( 


> .volb, volb, 445); 
$logic_check ( 


. (exch$rtacp.verify_directory (.volb)), 182); 


We need to check to make sure that the number of segments has not been lowered. If so, our entry address 
be sitting in the hyperspace beyond the segments in use. Hence, grab a pointer to the root segment. 


04-000 8 EXCHNG.SRCJEXCRTACP.B32;1 (3 

H 196 13 1 St OAL ROUTINE exch$rtacp_check_position (ctx : $ref_bblock) : NOVALUE = ZSBTTL "exch$rtacp_check_pos | ; 
i396 a Bis feast 
3 138 8 } FUNCTIONAL DESCRIPTION: | : 
s 110 0 Be ' Check that the Sirestory entry described in the context block is at the correct position. Several e| ; 
: WI 0205 : might have caused the directory to be rearranged, such as the creation of a file since the context w : 
; \\¢ 8 Be } found. If the entry has moved, find it and set the pointers to the new position. : 
3 316 0208 ! INPUT/OUTPUT: | : 
5 Tie 4 09 ! ; 3 
; 11 4 19 ctx = pointer to block describing the directory context | ; 
; 18 0 \¢ ! IMPLICIT INPUTS: 3 
> 119 021 | : 
s 120 0214 ' none $ 
: 121 0215 ! | 3 
3 \s¢ 0216 ! IMPLICIT OUTPUTS: 3 
; Ve Bsié ! $ 
> 124 0218 ! none : 
> 125 0219 2! 3 
> 126 0220 2 ! ROUTINE VALUE: : 
s ter 0221 2! 3 
; 128 bss¢ e! none 3 
: 129 0223 2! 3 
: 130 0224 2 ! SIDE EFFECTS: 
3 331 0225 2! 
3 132 0226 2! none 
s 155 Ossi 2 !-- 
: 134 0228 2 
s 135 $594 2 Sdbgtrc_prefix (‘exch$rtacp_check_position> '); 
; 1% 0230 § 
; 137 0231 2 LOCAL 
s 138 0232 2 seg : Sref_bblock, ! a pointer to the current directory segment 

3; i 0233 2 ctx2 : $ref_bblock, ! a pointer to a second context in case we need to scan 

3; 140 0234 2 flags 
> 141 0235 2 : 
3 1%6 0236 2 
s 0237 2 BIND 
3 6144 0238 2 volb = ctx Crtlictx$a_assoc_volb] : $ref_bblock 

> «6145 0239 : 

> 146 0240 

3 «147 0241 

> 148 024 | 

> 149 02 

; 150 0244 2 

3 2% 0245 § 

. Gee 0246 

s 3535 0247 

: «154 0248 

3; 155 0249 

3; 156 0250 


WOM 


1 
i 
i 
seg = exch$rt11_dirseg_get_nochk (.volb, 1); 
$logic_check (2, (.seg NEQ 0), 147); 
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exch$rtacp_check_position (ctx) 1 ~Sep-19 
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| 

2:29: EXCHNG. SRCJEXCRTACP.B3 31 (4) | 

Check to see if the entry position info is correct, if so we can simply return 

IF ctx Ertiictx$l_seg_number] LEQU .seg Crtiihdr$w_high_seg] | 

— (rtlictx$s_entry, ctx Crelictx$t_entry], rtlictx$s_entry, .ctx [rtlictx$a_ent_address]) 
RETURN; | 

$trace_print_lit ("looking for new position’); | 

Get a context block for the search | 

ctx2 = exch$util_rtlictx_allocate (.volb, 0); 

Loop through all the segments in the directory looking for this file entry 


flags = rtnxt$m_permanent OR rtnxt$m_empty OR rtnxt$m_tentative OR rtnxt$m_skip_check OR rtnxt$m_skip_expand 
WHILE exch$rtacp_next_entry (.ctx2, .flags) NEQ 0 


BEGIN 
if cece. (rtlictx$s_entry, ctx Crtlictx$t_entry], rtlictx$s_entry, ctx2 Crtlictx$t_entry]) 
BEGIN 
$trace_print_fao (‘Relocated "!AF', .ctx Ertlictx$l_exp_fullname_lenJ, ctx Crtiictx$t_exp_fullname] 
} if the file has moved we are in deep trouble 
$logic_check (3, (.ctx Crtiictx$l_start_block] EQL .ctx2 Crtlictx$l_start_block]), 120); 
} Put the new position info into the context block 
ctx Erelve trsarseg-adaress -ctx2 Ertlictx$l_seg_number]); 


ctx Urtlictx$a_seg_address] = letx2 PRE _addressJ; 
ctx = .ctx2 [rtlictx$a_ent_address]; 


rtiictx$a_ent_address] 
Give the extra context back 
exch$util_rtilctx_release (.ctx2); 


RETURN; 
END; 


END; 

$Slogic_check (0, (false), 121); 
RETURN; 

ND; 


We should have found it 
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EXCHSRTACP RT11_ directory routine 16-Sep-1984 01:19: AX-11 Bliss-32 V4.0-74 Page 6. 
v04-000 exch$rtacp_ check ops ition (ctx) 13-808- 1382 93:33:83 EXCHNG.SRC EXERYA cP. "333.1 ° (4). 
1C 8 BEQL 4$ F | 
38 = ASS 38 AG 43 A gS gis. 56(R4), S6(CTX2) 3; 0272. 
76 AG 76 «OA D $3 MOVQ 118(CTX de 118(R4) : 0284 
7E AG 7E AS dO 9 MOVL 126(CTX2), 126(R4) : 36 
3 DD 9C PUSHL CTX2 3 9 
00000000G_ EF 1 FB 3 CALLS #1, EXCHSUTIL_AT11CTX_RELEASE 3 
F A RET 3 0380 
7E 79 ~—s«BF A A6 4$ MOVZBL #121, -(SP) 3 9 
3 DD AA PUSHL #1 3 
7 DD OOOAC PUSHL R7 $ 
68 03 FB OOOA CALLS #3, LIBSSTOP : 
04 00081 5$: RET ; 0300 


; Routine Size: 178 bytes, Routine Base: EXCHSRTACP_CODE + 0000 
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EXCHSRTACP RT11_ directory routines 1§- e 
v04-000 14-Se 


=1984 01:19:05  YAX=11 BLiss-32_v4.0-74 p a 
exch$rtacp_clean_directory (volb, ent_cnt, ent_ 5 1984 93 38:88 aaa 


a EXCHNG.SRCJEXCRTACP.B32;1 (5). 


oO 


1 1 GLOBAL ROUTINE exch$rtacp_clean_directory (volb : $ref_bblock, %SBTTL ‘exch$rtacp_clean_directory (volb, en| 
1 ent_cnt, ent_len) : NOVALUE = 
oe 


FUNCTIONAL DESCRIPTION: 


OOOO 
NOUS UT 


| 
This routine is used Like the RT-11 segment split logic, i.e. it makes room for a directory entry. 


Se 


NOUS WN —OOONOULS WN —O Cc 


of a simple segment split, it may restructure the entire directory. It will add or remove segments | 
the chain to produce a directory with approximately the same number of active entries in each segmen| 


This routine assumes that it has been called from exch$rtacp_consolidate. It assumes that every dir 
segment contains only valid directory entries and is terminated by an end-segment marker. It does n 
require that unnecessary entries (see exch$rtacp_consolidate) be removed. 

INPUTS: 


volb - pointer to volb which has been connected to the RT-11 device 


rrr 
AWA POPINIPONINININIDY 2 2 2 OO OO we 


La 


: 6 
. 0 i 
; 0 i 
; 0 
“ 0 i 
° 0 i 
r4 0 i 
r4 0 i 
4 0 i 
; 0 i 
; 03 : 
; 0 : 
3 0 ; 
H 0 : 
; 03 ' 
3 03 : ent_cnt - number of entries in the directory 
3 ' ent_len - length of a single entry, including extra bytes 
b3 l l h of ingl includi b 
; : 8 : IMPLICIT INPUTS: 
; 03 : none 
; £ 03 : 
s @ 03 ! OUTPUTS: 
3 2 O3¢ ' | 
; < 0328 ! none 
hee. ttt : 
3 ¢s 0330 2! IMPLICIT OUTPUTS: | 
s a2 0331 : 
; 26 0332 i none | 
: 24 033 : 
; 24 0334 ' ROUTINE VALUE: 
; 24 0335 : 
; 24 0336 ‘ none 
: 245 0337 : 
> 246 0338 § ' SIDE EFFECTS: 
; 247 0339 ‘ see 
; 248 0340 : all error conditions are fatal 
; 249 0341 !e- 
; $20 tak: 
3 3} O34 $dbgtrc_prefix (‘exch$rtacp_clean_directory> '); 
; 258 6 45 LOCAL 
; «254 0346 seg : $Sref_bblock, ! a pointer to the current directory Sognemt 
, @9 0347 cur_: $ref_bblock, ' a pointer to the current directory entry 
: 256 0348 dir $reT_bblock, ' a pointer to an area where we will assemble a clean direct 
. gor 0349 seg $ref_bblock, ' a pointer to the current Sognent in the clean directory ar 
; 258 0350 cure : $ref_bblock, ' a pointer to the current entry in the clean directory area | 
: 259 351 ctx : $ref_Bblock, ' a pointer a context block for Leaping through the dirty di | 
: 260 326 ent2_cnt, ' count of entries in the current clean segment 
; 261 35 sege_num, ' current segment number in the clean directory 
; o¢ 354 seg_cnt, ' number of segments for the cleaned directory 
: 26 355 ent_per_seg, ! goal for number of entries per segment 
3 264 329 max_ent_per_seg, ! max number of entries per segment 
; 265 035 flags ! local for our flags to exch$rtacp_next_entry 
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exch$rtacp_clean_directory (volb, ent_cnt, ent_ 


4 
EXCHNG.SRCJEXCRTACP.B32;1 (5 
$debug_print_lit (‘entry'); 
$Sblock check (2, .volb, volb, 533); 

Slogic-check (4, (exch$rtacp_verify_directory (.volb)), 183); 
seg = exch$rtl1_dirseg_get (.volb, 1); 

Slogic_check (27 (.seg™NEQ 0), 151); 

Figure out the maximum number of file entries which can fit into a single segment 


! Get the pointer to the dirty root segment 


max_ent_per_seg = (rti1$k_dirseglen - ! Length of entire segment 

rtlihdrS$k_length - ! less the length of the segment header 
2) ' less two bytes for the end-of-segment marker 
/ .ent_len; ! Divided by the length of a single entry 


$trace_print_fao (‘desired entries !UL, max_ent_per_seg !UL", .ent_cnt, .max_ent_per_seg); 


Determine how many segments we need to leave two free entries per segment. This gives the final segment c 


ent_per_seg = .max_ent_per_seg - 2; 
F 


: ! Leave room for two entries in each segment 
seg_cnt = 


seg_cnt = .seg (rtiihdr$w_num_segs]; ! We know that we can be at most one over the Limit 


! Using the final segment count, now try to evenly distribute the entries around the segments. This gives t 
: final entries per segment count. 


ent_per_seg = (,ent_cnt / .seg_cnt) + ! Need one extra entry if not even division 
(IF ((.,ent_cnt MOD .seg_cnt) NEQ 0) THEN 1 ELSE 95 
Slogic_check (4, (Tent_per_seg CEQU .max_ent_per_seg), 180); 

$trace_print_fao (‘final segs !UL, goal ent_per_seg !UL", .seg_cnt, .ent_per_seg); 


' Grab a chunk of memory which will be used to build a clean copy of the directory. We haven't modified any 
yet, so there will be no problem with corrupting anything if this allocate fails (it will SIGNAL_STOP). 


dir2 = exch$Sutii_vm_allocate_zeroed (.seg_cnt * rtl1$k_dirseglen); 


v0. 


oO 
wv 


4 
RT11_ directory routines 1B-se -1984 01:19: AX-11 Bliss-32 V4.0-74 Pa 9 
exch$rtacp. clean directory (volb, ent cnt, ent_ 1 730071 3c 93 338:88 LEXCHNG.SRe EXCRTACP.B32;1 - (6) | 


<m 
25 
3 3 


3 4 ! OK, our new directory will contain “BEF CNT segments each containing .ENT_PER_SEG entries, with possibly f| 
; 19 40 entries in the last segment. Start building a clean copy of the directory. 
: 31 403 2. | 
; 1§ the } Set the segment header for the root segment. rtiihdr$w_high_seg won't be set until later | 
: 315 4 $ seg2 = .dir2:; ! Get the pointer to the clean root segment | 
3 18 40 sege [rtilhdr$w_num_segs] = .seg C(rtiihdr$w_num seas? ! Haven't changed the total number of segs | 
; 31 408 sege Irtiihdr$w_next_seg] =_(IF .seg_cnt EQC 1 THE ELSE 2); ! We will Link them in order 
; 28 409 sege irtiihdr$Sw_extra_bytes] = .seg [rtilhdr$w_extra_bytes]; ! This stays the same | 
: rh sege [rtlihdr$Sw_start_block] = .seg [rtiihdr$w_start_blockJ; ! Same now, but may not be for other segment 
; 3 Bete H Set up the control variables for the transfer loop 
; : 

; $§ bela seg2_num = 1; ! First segment in the clean directory | 
; 324 0415 cure = .seg2 + rtlihdr$k_Llength; ! Point at the first available entry position in the clean 

3 $2 Bei§ ent2_cnt = 0; ! No entries in the clean directory 

; 2 B245 ctx = exch$util_rtlictx_allocate (.volb, 0); ! Get a context block for the search | 
; 33 beat : Loop through all the segments in the dirty directory, transferring entries to the clean directory 

; 331 04 ¢ flags = pn + homey: OR rtnxt$m_empty OR rtnxt$m_tentative OR rtnxtSm_skip_check OR rtnxt$m_skip_expand 
3 3 04 WHILE (cur = exch$rtacp_next_entry (cctx, .flags)) NEO 0 

; 3 0424 DO 

; ze Be 2 BEGIN 

; 336 0427 CASE .cur ([rtilent$v_type] FROM 0 TO rtllent$m_typ_end_segment OF 

; 336 0439 ae 

: 339 0430 CINRANGE, OUTRANGE) : ! We had better give up before something happens 

; 31 0432 $logic_check (0, (false), 153); 

: 34 043 (rtilent$m_typ_tentative, rtilent$m_typ_empty, rtllent$m_typ_permanent] : 
368 0434 é Smt yp. yp_empty yP_p | 
: ri ek) ? If we have filled this clean segment, then start a new segment before we do any moves 
: 347 0438 5 if (.ent2_cnt GEQU .ent_per_seg) | 
; 348 0439 4 THEN 
; 9 0440 5 BEGIN | 
; 350 0441 5 
; 351 pete 5 Set the end-of-segment marker in the current clean segment 
; 3g 444 3 Slogic check (3, (.cur2 LSSU $992 + rtl1$k_dirseglen), 157); ! We need room for marker 

: 20 Ree? cure [rtilent$b_type_byte] = rtilent$m_typ_end_segment; 
; 33 bce? ; Reset the pointers and counters for the clean segment 
: H 
: 358 oc49 ent2_cnt = 0; ! No entries yet 
; 359 0450 eg2_num =, ege-nue * 3 ! Adding one more segment 

; 451 Slogic_check (3,~(.seg2_num LEQU .seg_cnt), 158); ! which had better | 
: 1 £36 sege = .sege + rt11$k_dirseglen; ' Move to the new segment | 
3 § $37 cure = .sege + rtilhdr$k_length; ! First entry in the seg | 
; re) beee ; ! Initialize the segment header for the new segment 
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-0-74 1 
exch$rtacp_clean_ TACP.B32;1 (6 
457 5 se rtiihdr$w_num_segs] = .seg (rtiihdr$w_num_segs]; ! Same total # of segs 
38 $395 Ere ingrsucnoneeegad = (IF? see num EOL "Seg. nt ! We will tink them Wn order 
4 HEN se ,$eg2 nun ); |! _marking the end with a 
460 se9g prt} indr$u_extra_bytes = .seg [rtlihdr woextra_bytes i! This stays the same 
te) segé [rtilhdr$Sw_start_block] = .ctx Erelictx$l_start_block];! First file starts here 
8 & END; 
464 & 
Rees : } Transfer this entry to the clean segment 
aie 4 CHSMOVE (.ent_len, .cur, .cur2); 
469 4 ' Bump the clean s nt pointers 
0470 4 fom een lah 
0471 4 cur2 = .cur2 + ,ent_len; ! Move the entry pointer 
0472 4 ente_cnt = .ent2_cnt + i; ! Adjust the entry count for this segment 
otf ? ent_cnt = .ent_cnt - 1; ! Adjust the total entries remaining count, just a check 
0475 3 END; 
0476 3 TES; 
0477 END; 
0478 
et 44 exch$util_rtiictx_release (.ctx); ! Give the context block back 
bees } Set the end-of-segment marker in the final clean segment 
048 Slogic check (3, (.cur2 LSSU $092 + rtl1$k_dirseglen), 159); |! We need room for marker 
0484 cure Ertilent$ -type_byte] = rtilent$m typ_end_segment; 
eH 2 Slogic_check (37 ((.@nt_cnt EQL 0)), 180); ! Make sure we moved everybody 
ot $4 ; } Set the directory header info in the first and final segments 
0489 2 seg2 Creiindr$u_next_seg] = 0; ' Last segment is end of chain 
Reo0 dire (rtilhdr$w_high_seg] = .seg2_num; ! Last segment is highest segment in use 
049 '?? need to deal with the following situation (most Likely to occur when /EXTRA=119): 
049 12? attempt ing to completely fill each segment (e.g. sog_cnt= 1 and ent_per sy ee however we end up 
Be 8e 133 Titling 3 segs with 4, the 24th seg gets 3, we quit but the insert fails because only one entry availa 
'2? in segment. 
0496 5 {2? (Cif seg? nuacseg cnt and <2 free entries in last segment split the last segment into 2? 
0497 2 !22 This doesn't help if free space is in an earlier segment unless you squeeze) 
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438 exch$util_vm_release ((.seg_cnt * rtl1$k_dirseglen), .dir2); 
Check the new directory out 
$logic_check (3, (exch$rtacp_verify_directory (.volb)), 184); 


! Now, consolidate again. This is mocounary because we ot have adjacent empty entries which can be colla 
e 


We give the ‘'2"' flag to prevent another clean which would result in a recursive loop. 
exch$rtacp_consolidate (.volb, 2); 


RETURN; 
END; 


4 
HSRTACP RT11_ directory routines 1b-se 1984 01:19: AX-11 Bliss-32 V4.0-74 P 1 
-000 exchSrtecp.cieen directory (volb, ent cnt, ent_ 1 730071382 95 :38:8 YEXCHNG-SRe EXCRTACP.B32;1 the J} 
; 408 49 ! Now that we have a clean ‘‘duplicate’’ of the directory, make it the real directory and update thi is. 
> 409 49 : since it is possible (in fact Likely as the volume gets full) that some of the 2 ean girectory segeents | 
: 2\9 301 dentical to ‘dirty’ ones, we will compare each of the segments before moving and updating them. 
; tig 206 seg2 = .dir2; ! Get the pointer to the clean root segment 
: 414 504 2 INCRU num FROM 1 TO .seg2_num 
: ote 8 PO BEGIN = 
: a13 309 | 
: 213 Bene Compare the dirty segment with the clean one | 
; 2 , 0814 iF CHSNEQ (rt11$k_dirseglen, .seg, rtl1$k_dirseglen, .seg2) 
3 6 051 BEGIN 
; 3 ais CHSMOVE (rt11$k_dirsegl 2. .seg) ! Move the cl f the di | 
: r _dirseglen, .seg2, .seg); ! Move the clean se t t t t 
; $$? 0515 exch$rt11_dirseg_put .volb, mun); ° : Now write the sequent to disk ' peat: tase 
> 426 p218 
: 427 051 
; 428 0518 
: 429 0519 
; 430 0520 
rit $853 2 + rtliSk_dirsegl 
: a + ° 
: 3 ‘ 8 ¢ seg rt _dirseglen 
5 4 0524 END; 
; re 6 A ' Ret th for the dupli di 
° H rn 
: 43 bas6 : Retu e memory for the duplicate directory 
; 0528 
; 0529 
; 0530 
; 0 H 
; 0 ¢ 
; 053 
; 0534 
; 0 
; 0 
; 0 
3 0 
; 0 
; 0 


4 

4 

4 

4 

4 

END; | 

Move our segment pointers 
seg = .seg + rt11$k_dirseglen; | 
seg2 
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OFFC 00000 -ENTRY EXCHSRTACP_CLEAN DIRECTORY, Save R2,R3,R4,- ; 0301 
R5.R6,R7,RB,RI,RTO,R11 F | 

5E 18 C3 9002 SUBL2 #24 3 : | 
041B00F 3 er p 000 MOVL #6867 579, R2 : 0362 | 

31 0215 = BF ¢ 0c MOVZWL #533, R1 ; 
0 04 C 11 MOVL OLB, RO : 
000000006 EF 16 00015 JSB EXCHSUTIL_BLOCK_CHECK ; 

1 pd 00018 PUSHL #1 : 0366 | 

04 AC DD 00010 PUSHL OLB F 
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#2, EXCHSRT11_DIRSEG_GET 
RO, SEG 


#151, =(SP) 


#EXCHS BADLOGIC 

#3, LIBSSTOP 

ENnf LEN, #1012, MAX_ENT_PER_SEG 

-2(RO), ENT_PER_SEG 

ENT_PER_SEG, ENT_CNT, R1 

#1, -ENT-CNT, #0, ~=(SP) 
f_PERISEG, (SP)+, RO, RO 


» SEG_CNT 


T 
#0, =(SP) 
d+, RO, RO 


ENT_PER_SEG 
EG_CNT, 20(SP) 
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vet 
59 : PL Wye SEG2_NUM é | 
8 19$ : 
3: 0528 

24(SP) F 

00000000G_ EF 02 #2, EXCHSUTIL_VM_RELEASE 3 
‘te 3 0537 

0000vV CF 00106 #2, EXCHSRTACP_CONSOL IDATE 3 
ET ; 0540 
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fbec000 exch$rtacp, consol date (volb, clean) 12286871382 9 38:83 YEXCHNG SRE EXCRTACP.B32;1 . (8) | 

H : § ¢) 1 599A. ROUTINE exch$r‘acp_conso. ate (volb : $ref_bblock, clean) = SSBTTL ‘exch$rtacp_consolidate (volb/ ; 
: 454 rk 1+¢ : 
> 455 44 : : 
: <2 $2 ; FUNCTIONAL DESCRIPTION: : 
3 +28 0847 Make a pass to compress the directory. The following types of entries are unnecessary: : 
: 460 0549 : Multiple consecutive empty entries | : 
; 461 0550 : Tentative entries ‘ 
: re B22) Empties of length 0 following a permanent entry : 
> 465 0554 4 : 
; 466 0555 : volb = pointer to volb which has been connected to the RT-11 device : 
; 467 0556 2! clean =~ flag telling whether to restructure the Siroctory. with the ohne re yey he : 
: 468 0557 2! 0 - don't force a restructure, but allow it if find segment with single entry : 
; 469 0558 : 1 - force a restructure regardless : 
; 470 0559 : 2 - don’t allow a restructure ; 
; 471 0560 : : 
; 47 0561 ! IMPLICIT INPUTS: ; 
3; 47 B208 : ‘ 
3 474 056 ° none : 
; 475 0564 § : : 
; 476 0565 ! OUTPUTS: : 
3; 477 0566 2! ‘ 
; 478 0567 2! none : 
; 479 0568 § ; : 
: 480 0569 ! IMPLICIT OUTPUTS: : 
; 481 0570 2! ; 
: 482 0571 § ; none ; 
: 483 0278 : : 
> 484 0573 2 ! ROUTINE VALUE: : 
; 485 baee § ; ; : 
; 486 0575 : true if succeeded, false or error status if failed : 
; 487 0576 § : ; 
: 488 0577 ! SIDE EFFECTS: : 
3; 489 0578 2! ' : 
: 490 0579 2! error conditions will be signaled : 
3 (491 0580 § — : 
; 49 0581 ; : 
; 49 0582 2 $dbgtrc_prefix (‘exch$rtacp_consolidate> '); : 


RT11_ directory routines 
exch$rtacp_consolidate (volb, clean) 
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v04-000 


AX-11 Bliss-32 Ve On 288 Page 
EXCHNG.SRCJEXCRTIACP.B32;1 


| 


' a pointer to the current directory segment 
! a pointer to the current directory entry 

! a pointer to the previous directory entry 
' bits to say whether we need to write out directory segment | 
current segment number 
' 
' 
' 


' we have seen an end of segment marker 
! a@ segment was consolidated to a single entry 
! Leng h of a single directory entry 

er of entries in the segment 


map a longword onto the bitvector 


! No directory segments have been modified, clear all bits 


> 495 2 3 LOCAL 

3 6 4 seg : $ref_bblock, 

; 49 585 cur : $ref_bblock, 

; 498 0586 prv : $Sref_bblock, 

; 499 0587 segment_modified : BITVECTOR (32), 

; $00 p288 seg_num, 

; $01 0589 end_segment seen, 

3 a0¢ 0590 segment_with_single_entry_seen, 

; 0591 ent_len, 

; 504 $236 ent cnt ! num 
3 305 059 3 

; 206 0594 

; 0595 BIND 

; 508 0596 2 modified_segments = segment_modified ! 

; 509 0597 § ; 

; 510 0598 

; 63h) 0599 2 $trace_print_fao (‘entry'); 

; 21¢ 0600 

g 63Y 0601 $Sblock check (2, .volb, volb, 551); 

; 314 060¢ Slogic-check (4, (exch$rtacp_verify_directory (.volb)), 211); 
>; 516 0604 : ' Set up some initial conditions 

3 Sir 0605 : 

>; 518 0606 2 modified_segments = 0; 

ae 3b 0607 2ent.cnt = 0; | ! No entries yet 
3; 320 0608 2 segment_with_single_entry_seen = false; 


! No segment was consolidated to a single entry 


5 
Sbetoo SachOrtern tekost tance Sith, sheen 16-Se0-1984 93:38:88 = EX CHnc SResexcRYAce.0$951 Page 1d5 
¢ at Scan the directory, compressing unnecessary file entries 
° Start with the first directory segment | 
seg_num = 1; 
Loop through all the segments in the directory 


WHILE -seg_nu NEQ 0 
BEGIN 
Get a pointer to the current segment 


| 
seg = exch$rt11_dirseg_get (.volb, .seg_num); 
$l ogic check (2, (sen Reo 0), 152); . | 
ent_len = rtilent$k_length + .seg Crtilhdr$w_extra_bytesJ; 

| 


Get a pointer to the first directory entry, delete it if it is tentative 
prv = — . + rtithdr$k_length; 

i rtilent$v_type] EQL rtilent$m_typ_tentative) 

BEGIN 

segment_modified C.seg_num] = true; 

pry CreTientSb_type_byted = rtilent$m_typ_empty; ! Zap whole byte to clear protect bit 


RARAEAAAARAAAAAAAAAA AAAS 
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an 


We've taken care of the first entry, now starting with the second scan the rest of this segment. If e. 
of the first two entries is the end marker we don't need to scan 


' 
i 
Cc 
I 


Be Se ee Se Ge Be Se ee Se Fe Se Ge SHG FH Se Se Ge Se Fe Fe Ge FH Se Ge BH Se ae FHS we Ge SH SH Se Se Se oe FH Se Se Se SH Se SESE Se Se Se Se Se Se Sees tease 
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3 
4 
3 
4 
4 
; 
3 
3 | 
0640 3 ur = .prv_+ .ent_len; ! Add the Length of one entry 
Ree ; F (.prv Crtilent$v_type] NEQ rtllent$m_typ_end_segment) 
0643 4 (.cur Crtllent$v_type] NEQ rtilent$m_t d t) 
ase? 3 bene u v_ityp m_typ_end_segmen | 
0645 4 BEGIN 
0646 4 end _segment_seen = false; | 
0647 5 WHITE (.cur LSSU (.seg + rt11$k_dirseglen)) 
0648 4 DO 
0649 5 BEGIN 
0650 5 
Rees : : If tentative, turn it into an empty before we move forward 
b658 6 if (.cur Crtilent$v_type] EQL rtllent$m_typ_tentative) 
0654 5 THEN 
0655 6 BEGIN 
0656 6 segment modified C.seg_num] = true; : 
4 +e t4 6 ur CrtTient$b_type_byte] = rtllent$m_typ_empty: ! Zap whole byte to clear protect bi 
é 0659 3 : | 
0660 5 ! Advance our count 
4 0661 5 : 
? 808 5 CASE .cur C(rtilent$v_type] FROM 0 TO rtilent$m_typ_end_segment OF 
$ 0664 rtilent$m_t p.tentetiyed : 
78 0665 $logic_check (0, (false), 148); 


ji RTACP 16 EXC 
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v04-000 exch$rtacp_consol idate (volb, clean) 30p-1 380 12:29:08 LEXCHNG. SRC EXCRTACP.B32;1 9°10) vo4 
: 280 bees [rtilent$m_t t] 
$ rtilent$m ermanent) : 
>; 581 0668 ; or 
: 58 5690 Crtllent$m_t ty] 
; rtilent$m em : 
: 34 oer é BECIN- 
$84 Ber? ? suite previous entry is permanent and the size of this empty is zero we can get rid o| 
; 588 0675 § ! 
; 396 ger ; IF (.prv Crtilent$v_type] EQL rtllent$m_typ_permanent) 
: 591 0678 (.cur Ertilent$w_blocks] EQL 0) 
: 598 0679 6 THEN Bs 
3; 2 0680 7 BEGIN 
: 594 0681 7 LOCAL 
3 4 ges 4 sl; ! Length of directory to slide down one entry 
; ’ 
: 338 068s r Roveactam a nk the yee snr: one entry } es | 
3 sl =rt rseglen - .ent_len - (.cur - .seg); ! Length of segment aini 
; 600 0687 7 CHSMOVE (.s eur + .ent_len, .cur); . . - aeten ore 
; 601 0688 7 segment_modified C.seg_num] = true; 
: 602 0689 7 cur = .cur = .ent_len; ! Back up so that next pass sees the slid down entry 
3 prt Rene 4 END 
: +4 Rep 4 Or if the previous entry is also empty we can combine these two into a single empty en. 
: 607 0694 7 ELSE IF (.prv Crtllent$v_type] EQL rtllent$m_typ_empty) 
: 608 0695 THEN : —_—_ i 
; 609 0696 BEGIN 
; 610 0697 7 LOCAL 
; oF Rene g sl; ! Length of directory to slide down one entry | 
; eis Brno Add the size of this empty to the previous empty, plus count it in the total | 
: oi? 44 4 prv Crtilent$w_blocks] = .prv Ertllent$w_blocks] + .cur (rtilent$w_blocks]; | 
: elt O 508 Slide the rest of the segment down one entry | 
: 619 0706 7 sl = rtl1$k dirseglen - .ent_len - (.cur = .seg); ! Length of segment remainin | 
: 620 0707 7 CHSMOVE (.sT, .cur + .ent_len, .cur); 
; 621 0708 7 segment_modified C.seg_num) = true; ! Remember that we have chan 
, ¢ § 0709 7 cur = .cur = .ent_len; ! Back up so that next pass sees the slid down entry 
; ¢ 0710 6 END; 
3: 624 0711 5 END; 
; $s? Oris 5 
> 626 07135 5 Crtilent$m Fyp.end_segnent) : 
s Ger 0714 6 BEG! 
; 628 0715 6 end pognent._seen = true; 
3 $68 716 6 EXITLOOP; 
ae EMG : 
: O34 19 ! Volumes with corrupted directories should have been write-locked when the d}rogtory was verifi | 
: 6 720 ! during mount. Therefore we must assume an 1/0 error or programming error within EXCHANGE has 
; o% as} : corrupted this directory. 
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exch$rtacp_ consolidate. (volb, clean) 14-Sep-1984 12:29:08 EXCHNG. SRCJEXCRTACP. 33 31 (10) 
3 ; CINRANGE QUTRANGE : ! We had better give up before something hap 
7 exchsrt?1 _dirseg_flush (.volb, .modified =genents) | ! Write out any changes u up je now 
Pench. signal_stop (exch$_rtll_baddirect, 2, .volb fvolb$l -vol_ident_len], volb Cvolb$t_v 


} Make the current the previous entry and skip to the next 


prv = .cur; 
cur = .cur + .ent_len; 


| 
| 
| 
TES; | 
| 
END; 


! Volumes with corrupted directories should have been write-locked when the directory was verified 


4 
i 3 
8 
or 9 
oF 0 
731 
07 : 
of 4 
735 
07 $ 4 
O38 
0739 4 i during mount. Therefore we must assume an 1/0 error or programming error within EXCHANGE has 
Bee ri corrupted this directory. 
Bree 5 if NOT (.end _segment_seen) 
0743 4 THEN 
0744 5 BEGIN 
0745 5 exch$rti1_dirseg_flush (.volb, .modified_segments); ! Write out any changes up til 
tok: ? pench. signal_stop (exch$_rt1l_baddirect, 2, .volb tvolb$t _vol_ident_lenj, vol Eyolbst _vol_ident | 
gs ev | 
| 
ooey Count the number of entries. CUR points to the end marker. 
O73¢ (BEGIN LOCAL cnt. this_se 
0753 5 cnt_this_seg = ({cur = * Seg + rtlihdr$k_length)) / .ent_len; ! Divide space yeoe by length of ent 
0754 5 ent_cnt = .ent_cnt + gent this_seg; ! Divide space by length 
$722 5 iF gente this_ség EQL 1 ! This segment has a single entry 
E44 3 segment _with_single_entry_seen = true; 
3544 $logic_check (4, (((.cur = (.seg + rtlihdr$k_length)) MOD .ent_len) EQL 0), 150); ! Better be even | 
gre! ; Skip to the next segment | 
Ores seg_num = .seg [rtllhdr$w_next_seg); 
0765 END; | 
a76? : Now that we are done, write out any of the segments that we have modified 
0769 snchtieett_streee. Huck (.volb, .modified_segments); 
bro) Slogic_check (3, (exch$rtacp_verify_directory (.volb)), 191); 
718 : Now clean it up if one of the flags is set 
oe? iF (clean EQL 1) 
i {.sognent_uith_single_ontry_seen 
$778 sent_cnt GTRU 1 ' Avoid recursive loops when down to one entry 


<m 
5+ 
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000 SOE j 9 185 


v04~ exch$rtacp_consolidate (volb, clean) 14-Sep-1984 12:29: XCHNG.SRC JEXCRTACP.B32:1 
-clean ' : ‘ 
695 THEN ven then, don't clean t has been prohibited | 


exch$rtacp_clean_directory (.volb, .ent_cnt, .ent_len); 
RETURN true; 
END; 


$233 


.EXTRN EXCH$_RT11_BADDIRECT : 
-EXTRN LIBSSTOP : 
OFFC 00000 .ENTRY EXCHSRTACP_CONSOLIDATE, Save R2,R3,R4,R5,- ; 0541 F 
RS R7,R8,R9,R10,R11 : ; 
5E 18 ¢2 0000 SUBL2 #24, SP : : 
5 04 AC 00 0000 MOVL L R + 0601 F 
52 041B00F3 BF D0 00009 MOVL  #68878579, R2 : : 
51 0227 8F 3C 00010 MOVZWL 1 : ; 
50 59 00 00015 OVL  R9, RO : ; 
000000006 EF 16 00018 JSB EXCHSUTIL_BLOCK_CHECK : : 
08 AE 7C OOO1E CLROQ NT_CNT + 0607 ; 
04 AE 04 00021 CLRL SEGMENT_WITH_SINGLE_ENTRY_SEEN : 0608 ; 
58 01 DO 90084 MOVL #1, SEG"NUM > 0613 ; 
03 12 00027 1$ BNEQ : 0617 ; 
0132 31 00029 BRW : : 
OA0O §=8BF «BB 0002C 28 PUSHR #*M<R9,R11> > 0623 F 
000000006 EF 02 FB 00030 CALLS #2, EXCHSRT11_DIRSEG_GET ; : 
5A 56 D0 00037 MOVL RO, SEG ; : 
13 12 0003A BNEQ + 0624 ; 
7E 98 8F 9A 0003C MOVZBL #152, -(SP) ; : 
01 DD 00040 PUSHL @# ; : 
000000006 8F DD 00048 PUSHL HEXCHS BADLOGIC F ; 
000000006 00 03 FB 0004 CALLS #3, LIBS$S : ; 
58 06 AA 3C O0004F 3S MOVZ2WL 6(SEG), ENT_LEN + 0625 3 
58 OE CO 00053 ADDL2 #14, ENT_ ; F 
14 Ag OA AA 9E 00056 MOV 10(R10) ,~20(SP) : 0629 3 
5 14 AE DO 00058 MOVL 20(SP), : ; 
01 01 «A? 04 00 ED 005 CMPZV #0. #4; 1(PRV), #1 + 0630 ; 
00 OC A 4 £3 0067 BBSS SEG_NUM SEGMENT_MODIFIED, 4$ > 0633 : 
01 A 0 006¢ 4$: MOVB #2, -1(PRV > 0634 ; 
56 57 58 C1 00070 5$: ADDL3 ENT_LEN, PRV, CUR ; 0640 ; 
08 01 «A? 04 0 FD 0 th CMP ZV #0, #4, 1(PRV), #8 + 0641 : 
08 01 Ab 04 g F 0 4 CMPZ2V #0, #4, 1(CUR), #8 > 0643 : 
82 6$ BNEQ 7$ ; : 
00BB 3 BRW 2$ ; 3 
6E ps 087 7$: CLRL END SEGMENT_SEEN > 0646 : 
10 AE 0400 CA ‘ 9 MOVAB 102%(R10), T6(SP) + 0647 : 
10 AE 6 D F 8$: CMPL CUR, 16(SP) : : 
D IE 3 BGEGU & ; : 
01 01 Ab 04 0 F 09 CMPZV #9 #4, 1(CUR), #1 > 0653 : 
9 98 BNEQ 108 3 : 
00 OC AE f 09D BBSS § SEG_NUM, SEGMENT_MODIFIED, 9$ > 0656 F 
01 Aé 8 OOA2 9$: MOV #2, 1(CUR ; 0657 : 

7E 01 AG 04 EF 000A6 10$ EXTZV #0. #4, 1(CUR), -(SP) > 0662 

| 
| 


EXCHSRTACP 
v04-000 


0070 


04 


02 


RT11_ directory routines 
exch$rtacp_consolidate (volb, clean) 


a 


5C 
7E Gh ' 
000000006 8F 
000000006 00 ; 
01 A? 04 00 
05 
08 A6 
0D 
01 A? 04 00 
26 
08 A? 08 A6 
50 56 5A 
50 FCOO C048 
50 50 
66 6846 50 
00 Oc AE 5B 
56 58 
05 
6E 01 
9? 
57 6 
56 38 
FF7e 
22 6E 
*§ 
000000006 EF 3 
69 A 
65 A9 
02 
000000006 of 
000000006 00 4 
50 56 14 =A 
50 5 
08 AE 5 
01 50 
Fy 
04 AE 1 
5B 02 AA 
FEC9 
oc 3 
000000006 fr 33 
1 08 AC 


‘ta 


11 000C2 
oA ih 12$: 
DD c8 
DD OOOCA 
FB 000D0 
11 00007 
8 00D9 13$: 
OODF 
8 4449 
13 O00E4 
ED OOOE6 14$: 
12 OOOEC 
a pOOEs 
C3 OOOFS 15$: 
9E OO00F7 
cf OOOFD 
28 00100 
E2 00105 
C2 0010A 16$: 
11 00100 
DO OO10F 17$: 
11 00112 18$: 
DO 00114 19$: 
0 0117 
1 OO11A 
E8 0011D 20$: 
DD Ba 4 21$: 
DD 001 
FB 00125 
9F 0012C 
DD 0012F 
DD 00132 
DD 001 
FB 135A 
04 00141 
C3 196 228: 
C6 0014 
CO OO14A 
D1 oe 
is 1 
i 
C 00157 23%: 
1 00158 
DD 001 ‘ 248: 
DD 0016 
FB 00163 
D1 OO16A 


a —_-—_____ -¢—_ ——__-- -—_ 


Be 92:2 


CASEL 
» WORD 


BG UDLMGPSRNEHEN eh 


sees es ee ees 
seeepeeveeneene 


C 


rs 


$ BADLOGIC 
IBSSTOP 
#4, 10PRV), #4 


t= 
Po) 
~ 


#4, 1CPRV), #2 
,_ 8(PRV) 

RO 
OSCENT_LENJ, SL 


NT_LEN)CCURT, (CUR) 
UN, SEGMENT MODIFIED, 168 


zac 
z 


2 


crsznonse 
ncmnmAo~ 


fe A-iG + aa a RPO 
~D 


END_SEGMENT_SEEN 
UR, PRV 
ENTILEN, CUR 


END_SEGMENT_ SEEN, 22$ 
MODTF IED_ SEGMENTS 


#2 EXCH$RT11_DIRSEG_FLUSH 
§(R9) 


#EXCHS_RT11_BADDIRECT 
#4, LIBSSTOP 


20(SP), CUR, RO 
NT_LEN, CNT_THIS_SE 
CNT-THIS$_SEG> ENT~CN 


G 
° T 
NT-THIS_SEG, #1 ~ 


MmoOoOm 
A 


# 
2(SEG), SEG"NUM 


 phnomepes 


#2, EXCH$RT11_DIRSEG_FLUSH 
CLEAN, #1 


EXCRTACP.B32;1 


BOSE ts Deane Ser ey Seem 


at 


0746 


— |) 


eee eee ee 


| 


Sbetooo susitrtese aekecl Canes tenth, wien 1f-se 3op-18Re 93:58:88 HEXchnc SaESexcRvace.6$5.1 


<m 
ox 


10 13 00166 BEQL 25 
18 04 AE £9 001 BLBC © SEGMENT_WITH_SINGLE_ENTRY_SEEN, 26$ 
01 B Ag DI 00176 CMPL  ENT_CNT> #1 
12 18 00178 BLEGU 
02 08 AC D1 017A CHL CLEAN, #2 
OC 13 0017 BEQL 
DD 00180 258:  PUSHL ENT_LEN 
OC AE DD 001 PUSHL  ENT~CNT 
59 DD 001 PUSHL R9 
FCOB GF $ FB 001 CALLS #3, EXCHSRTACP_CLEAN_DIRECTORY 
0 1 RO Qorgc 268: MOVE” = #1, RO 


: Routine Size: 400 bytes, Routine Base: EXCHSRTACP_CODE + 028E 


el kk RR ee ee Re 


} 


' a pointer to the current directory Soquent 
ry 


cur : $ref_bblock, ' a pointer to the current directory en 


| 
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v04-000 exchSrtacp. find. empty ares (ctx, blocks, start) 1 eet 93:38:88 YEXCHNG.SRe EXCRTACP.B32;1 ° af vo4 
; 701 787 1 GLOBAL ROUTINE exch$rtacp_find_empty_area (ctx : Sref_bblock, %SBTTL ‘exch$rtacp_find_empty_area (ctx, blo! ; 
2 § 788 blocks, start) = s 
3 @ BEGIN : 
g 7 7 'oe ° 1 
; 705 791 2! | :] 
; . ‘a : FUNCTIONAL DESCRIPTION: ; } 
3 Ai re First, have EXCHSRT11_CONSOLIDATE make a pass to compress the directory. | : } 
; 710 136 : Second, make @ pass to prepare to enter a new file. The BLOCKS peraaeter gives the size of the area ; 1 
; 711i 79 ; is needed. We will return the address of the first onpty area which is as close to this size as we :] 
; ne 798 : get. We will also put a zero-length empty area after this area so that the rt-11 ciose routine can : 1 
; ae Le move any excess blocks into the second entry. : 
3 73 0801 ! INPUTS: ; 1 
; 16 080 ' : | 
; ri 080 ctx = pointer to rtl1 context block :] 
; 718 0804 ° blocks = number of blocks needed, 0 means largest possible entry : 1 
; ny 0805 : start = pbn of block to start allocation (blocks parameter ignored if start <> 0) : } 
3; reo 98] ! (dummy) = this routine will call itself a second time if it is unable to satisfy the request. Recur : 
3 rs) 44 calls are flagged with a 4th dummy parameter, ACTUALCOUNT () is examined to prevent loops : | 
; 138 0809 ! IMPLICIT INPUTS: :] 
: 726 0810 ! ° 1 
: 725 0811 ) none :] 
; 726 pals ‘ : 1 
3 ver 081 ! OUTPUTS: 3 1 
; 728 0814 ' : | 
3 799 0815 ' none :] 
; 730 pe18 ‘ 3] 
; 731 081 i IMPLICIT OUTPUTS: : 
; rag 0818 : : 
: 73 0819 ' none 21 
; 734 0820 : : 1 
; ay 08 1 : ROUTINE VALUE: : } 
3 eh 0838 : true if able to find a suitable empty area, false or error status if failed . } 
; 135 0835 ! SIDE EFFECTS: : 
: 740 826 : ; 
; 41 oe , error conditions will be signaled 2] 
: 76 829 3) 
3 me o8 9 S$dbgtrc_prefix (‘exch$rtacp_find_empty_area> '); | ° 
: 74 8 } LOCAL | 3 | 
; 24 08 seg : $Sref_bblock, | 7 
> 749 08 5 exact_match, ! found an entry of exgctiy the correct Length : | 
: 750 ent_lén, ! Length of a single directory entry | 31 
3s 731 flags ' a temporary for the flags mask | 
3 P36 8 mat_ent : Sref_bblock, ! address of current matc 
3; 839 mat_blk, ' start pbn of current match | 
; 754 0 mat_len, ' size of current match | 
3s 95 1 mat_seg, ! segment number containing the match | 
; 756 S ¢ recursive, ! flag that we have been called from here | 
; «757 84 status 


5 
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Fo 
We 


rf BIND 
ro) is volb = ctx ([rtlictx$a_assoc_volb] : $ref_bblock 
76 4 : 
764 0 BUILTIN 
£0? 1 ACTUAL COUNT 
i bee tt ge 
4 , tH Strace_print_fao (‘entry - ctx !XL, blocks 'UL, start !UL", .ctx, .blocks, .start); 
771 Bao Sblock_check tg. «Ctx, rtlictx, 535); 
a4 S28 Sblock=check (2, .volb, volb, 530); 
77% 0860 ! Set up some initial conditions 
776 be6¢ ctx prelictateont_edéres J) = 0; ! Set the output to an invalid address | 
777 086 ctx [rtlictx$l_seg_ number) = 0; ! Reset to scan from the start of the directory 
778 0 mat_len = 0; ! No Length of any matched entry 


= Py . 
recursive = (IF ACTUALCOUNT () EQL 4 THEN 1 ELSE 0); 


! Compress the directory into a known, clean state. Consolidate will do any verification we need. The seco| 
parameter determines whether a directory restructuring should take place. 


7 if NOT (status = exch$rtacp_consolidate (.volb, .recursive)) 
86 8 RETURN .status; 
4 3 +144 } Loop through all the segments in the directory 
790 08 § exact_match = false; ! We haven't seen an empty entry of exactly the correct size 
791 087 fags = rtnxtSm_empty OR rtnxt$m_skip_check OR rtnxt$m_skip_expand; 
a base _ E ((cur = exch$rtacp_next_enfry (ctx, .flags)) NEG 0) 
794 0880 BEGIN 
a tt LOCA, 
en; 
99 0888 
len = .cur (rtilent$w_blocks); ! Put the Length into a local for speed 
0 
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If we are looking for a particular start block, see if this empty area contains the start 


woo~ 


if .start NEQ 0 
THEN 


if 
08 
90 BEGIN 
05 +4 4 zetert LSSU .ctx Crelictx$l_start_block] 
0 598 RETURN exch$_stnotavail ! Already past the block, we will never find it 
08 835 ELSE 
9 38 al LEQU (.len + .ctx Crelictx$l_start_block)) ' Requested block inside this area 
\§ p 38 BEGIN : 
Biz exact_match = true; ! Set the flag to stop scanning 
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' Save the entry es amatch. Note that this and the following three saves are written 
so that the optimizer can collapse them into a single segment of object code. 


mat_len = .len; ' Save the Length of this entry, 
mat_ent = .cur; ! its address, 
mat_seg = .ctx prejictxSt seg nusberd; ! its segment number, 
pet pt = .ctx rtlictx$l-start_blockd; ! and the pbn where the free space starts 
END; 
END 


We are looking for any old empty area, see if the size is appropriate 


ELSE IF .len GEQU .blocks 


BEGIN 


IF .blocks EQL 0 
THEN 


! If this Length is a candidate, then examine it more closely 


! Block=0 means look for the biggest free space 


BEG! 
GTRU .mat_len ! Bigger than what we've seen so far 
BEGIN 
Save the entry as a match. Note that all 4 saves can be collapsed by the optimizer. 
mat_len = .len; ' Save the Length of this entry, 
mat_ent = .cur; ! its address, 
mat_seg = .ctx preiicexst seg.nusber); ! its segment number, 
pat ot = .ctx rtiictx$l-start_block); ! and the pbn where the free space starts 
END 
a ! Block<>0 means look for a close match 
A ae EQL .blocks ! Exactly what we are looking for 


BEGIN 
: Save the entry as a match. Note that all 4 saves can be collapsed by the optimizer. 


exact_match = true; ' Set the flag to stop scanning 
mat_len = .len; ' Save the length of this entry, 
mat_ent = .cur; ! its address, 

mat_seg = .ctx pret jctustseg.nusber); } its segment numb 


er, 
mat_blk = .ctx rtlictx$l-start_blockd; and the pbn where the free space starts 
ELSE IF ((. len LSSU .mat_len) ' Closer to correct than the previous match 
ions OR (.mat_len EG 0)) ! or no previous match 
BEGIN 


: Save the entry as a match. Note that all 4 saves can be collapsed by the optimizer. 
mat_len = .len; ' Save the Length of this entry, 

cur; ' its address, 

mat_seg = .ctx previctx$t seg nuaber); ! its segment number, 

mat_blk = .ctx rtilctx$l“start_block); ' and the pbn where the free space starts 


<m 
4 


ee ee eee ee ee ee ee ee ee ee ee ee ae ee 


ee ee ee ee ee ee eee ee ee ee ee ee ee 


a a eee a 


7 END; 
i 2 END; 
3 ee END; 
78 : If we have seen an exact match we can stop scanning this segment 


¢ if .exact_match THEN EXITLOOP; 
966 END; 


vee tial sactOrtonk Tike ote bree (ctx, blocks, start) 1$-§29-1 984 93:33:88 EXCHNG 
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EXCHSRTACP RT11_ directory routines 18-se -1984 01:19: AX-11 Bliss-32 V4.0-74 Page 7 E 
v04-000 exchSrtacp. find. empty. ares (ctx, blocks, start) 1 300-1384 93:38:88 YEXCHNG.SRe EXCRYACP.03551 . ad V 
H ¢ +d } Now put a zero-length entry after the matched entry and set the return values ; 
; IF .mat_len NEQ 0 ! Means that we found one ; 
; 5 396 THEN ~ | : 
; 971 BEGIN : 
; a6 LOCAL , 
; 97 eos : $ref_bblock, ! End of segment entry : 
3 9 974 emp : S$ref_bblock, ; ee to be turned into a zero-length empty ; 
3 4 Bre sl; ! Length of directory to slide up one entry : 
: 36 $i Get a pointer to the segment containing the match, return if error | : 
; 894 396 seg = onchOrtt}.¢jrsee_ovt bee b -mat_seg); : 
; 895 980 Slogic_check (27 (.seg NEQ 0), 155); ; 
: sae a 1 ent_len = rtilent$k_length + .seg [rtlihdr$w_extra_bytes); : 
: i 0388 ; Find the end of the segment. We verified that one exists in the first scan. : 
; 900 0985 eos = .mat_ent; ! Point to the matched entry ; 
; 901 0986 WHILE 1 F 
; O06 987 dO ‘ 
; 90 988 4 BEGIN F 
; 904 0989 4 eos = .eos + .ent_len; ! Advance to the next entr : 
; 905 0990 4 $logic_check (1, T.eos 53 ‘.o99 + rtli$k_dirseglen)), 144); ! tt can't loop forever, can it? | 

; 906 0991 4 If _.eos (rtilentsv_type] EQL rtilent$m_typ_end_segment 

; 907 0992 4 THEN 

: 908 0993 4 EXITLOOP; | 

; 909 0994 END; | 

; 910 0995 

: 911 0996 ! If we are looking for a specific block, we might need to split the current empty into two entries, the| 

5 a 4444 ; second of which will start on the requested block. 

3 ay 4444 IF .start NEQ 0 ! /START_BLOCK has been requested 

; 916 1001 ; eStart NEQ .mat_blk ! We are lucky, it already begins on exactly the right block 

; 917 100 THEN 

; 918 1003 4 BEGIN 

: 919 1004 4 

3 ase 1999 ? | Make sure that there is room to add two more entries to this segment. If not, signal a full direc 

3 356 1007 5 IF ((.eos+2 + (2*,.ent_len)) GEQU (.seg + rtl11$k_dirseglen)) 

; F 1008 4 THEN 

: 924 1009 5 BEGIN 

; 925 1010 5 IF .recursive ! If we have already tried it a seco 

; 926 1011 § HEN ! then cleaning didn't help and we 

s Per Ole 2 RETURN exch$_rt1l_overflow ' return an error. Otherwise, call 

; 928 101 ELSE ! routine again with a dummy parame 

3 369 1014 § RETURN exch$rtacp_find_empty_area (.ctx, .blocks, .start, 0); ! flag the call as recursive 

; 9 1015 4 ND; 

; 931 1316 4 ; 

3 36 131 2 Slide the rest of the segment up one entry and split the empty entry 

: 934 1919 4 emp = .mat_ent; ! Point to the matched entry (will become Se 

; 935 19 0 4 sl = .eos+2 = emp; ' Length of segment between empty and end 

; 336 1021 4 CHSMOVE (.sl, .emp, .emp + .ent_len); ' Slide rest of segment up 

; 95 18 § 4 mat_ent = .mat_ent + .ent_len; ! Move the pointer to the matched entry 

; 938 1 4 eos = .eos + .ent_len; ! Move the pointer to the end of the segment 


] 
Mm 5 
EXCHSRTACP RT11_ directory routines 16-Sep-1984 01:19:05 AX-11 Bliss-32 V4.0-74 Page 28) 
v04-000 exchSrtacp. find empty area (ctx, blocks, start) 1 730071382 95:38:88 LEXCHNG.SRe EXCRTACP.832;1 : 135 | 
| 
; 939 1024 4 CHSFILL (0, rtilent$k_length, .emp); ! Set all fields of empty entry to null 
; 940 19 5 4 emp [rtilent$b_type byte) = ttilentém_typ_empty; ! Set to an onety entry . 
; 941 10 $ 4 sl = .start = .mat_Blk; ! Get number of blocks to put in the empty | 
5 are 10 4 emp (rtilent$w_blocks] = .sl; ! Set the size of the new empty 
; 94 18 8 4 mat_ent Crtllent$w_blocks) = ,mat_ent (rtilent$w_ blocks] = .sl; ! Subtract the blocks from the match | 
3 ote 1} 8 2 mat_blk = .mat_blk + .sl; ! Move the starting block | 
7 el) ew: | 
3 28 19 Make sure that there is room to add one more entry to this segment. If not, signal a full directory 
; 950 18 5 4 IF ((.eos+2 + .ent_len) GEQU (.seg + rt11$k_dirseglen)) 
3 Fe 1 § 3 THEN 
: 226 10 4 BEGIN 
; = 1038 4 IF .recursive ! If we have already tried it a seco 
> 954 1039 4 THEN ! then cleaning didn't help and we 
3 939 1040 4 status = exch$_rtil_overflow ! return an error. Otherwise, call 
; 956 1041 4 ELS ! routine again with a dummy parame 
; 957 1904 4 RETURN exch$rtacp_find_empty_area (.ctx, .blocks, .start, 0); ! flag the call as recursive 
; 958 1045 4 D 
; 959 1044 4 
; 960 1045 3 ELSE 
; 961 1046 4 BEGIN 
; 308 1047 4 
2 oer rg 4 ? } Slide the rest of the segment up one entry and make the empty entry 
3; 965 1050 4 emp = .mat_ent + .ent_len; ! Point to one past the matched entry 
; 966 1051 4 sl = .eos+2 = .emp; ' Length of segment between empty and end 
; 967 1038 4 CHSMOVE (.sl, .emp, .emp + .ent_len); ! Slide rest of segment up 
; 968 1053 4 CHSFILL (0, rtilent$k_length, .emp); ! Set all fields of entry to null 
3 38) W338 ? emp ([rt1lent$b_type_byte] = rtilent$m_typ_empty; ! Zap whole byte to clear protect bit 
; 14 1938 : Put the info in the context block 
s OF 1058 4 ctx Crtlictx$l_start_block] = .mat_blk; ' Copy the pbn where the file starts 
; 974 1059 4 ctx Urtlictx$l_seg_number] = .mat_seg; ! The segment number 
; 975 1060 4 ctx (rtlictx$a_seg_address) = os ! The address of the start of the se 
; 976 1061 4 ctx (rtlictx$a_ent_address] = .mat_ent; ! The address of the entry 
3 arr 1906 ? CHSMOVE (rtlictx$s_entry, .mat_ent, ctx Crtlictx$t_entry]); ! And the entry itself 
; 979 1064 4 exch$rt11_dirseg_put (.volb, .mat_seg); ! Save the changes 
; 980 1065 4 status = true; 
; +f 1098 leat END; | 
; 98 1968 
3 one 1368 : Either no free space at all (.blocks = 0) or none as large as requested 
° H | 
; 986 1071 ELSE 
; 987 107¢ N | 
; 988 107 IF .start NEQ 0 ! If specific start block was requested, then it was past th, 
; 989 1074 THEN é ! end of the volume (or contained in last entry in director | 
: 990 1075 status = exch$_stnotavail 
; «991 1076 ELSE IF .blocks E€QC 0 ' If blocks requested is 0, then there was no space anyplace 
; 99 107 THEN ! we should return a volume full error | 
; 1 A status = exch$_volume_full 
3 99% 107 ELSE 
3; «995 1080 4 BEGIN 
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1081 4 IF .recursive ! If we have already tried it a seco 
1 § 4 THEN i “then cleaning didn't help and we 
19 ; é getatus = exch$_volume_full } or an we el se age ny Fane 
! routine again w a dummy parame 
1382 4 5 RETURN exch$rtacp_find_empty_area (.ctx, .blocks, .start, 0);! flag the-catl as recursive” 
Hi 
ISS) de 8 check (2, (exch$rtacp_verify_directory (.volb)), 192); 
1091 @ RETURN status: | 
1092 1€E 
LEXTRN  EXCHS_STNOTAVAIL | 
EXTRN EXCH$_ RT11_OVERFLOW 
EXTRN EXCHS $- VOLUME FULL 
OFFC 00000 eENTRY EXCHSRTACP_FIND EMPTY_AREA, Save R2,R3,R4,- ; 0787 
R5,R6,R7,RB,RI,R1IO,RIT : 
SE 20 ¢2 0000 SUBL2 #32, §P : 
59 04 AC 00 0000 MOVL CTX, R9 3; 0847 
52 008200F4 8F pO 90008 MOVL #8519924, R2 : 0857 
51 0217 F 3C 00010 MOVZWL #535, R1 3 
50 9 DO 00015 MOVL  R9, RO ; 
000000006 EF 16 00018 JSB EXCHSUTIL BLOCK_CHECK ; 
04 AE 14 AY DO ea MOVL O(R9), 4TSP) ; 0858 
52 041B00F3 8F 0 bO0s MOVL 468878579, Re 3 
51 0212 8F 3C OQO02A MOVZWL #5 R1 : | 
50 04 AE DO 0002 OVL 4(SPS, RO ; | 
000000006 EF 16 00033 JSB EXCHSUTIL_BLOCK_CHECK : | 
7E AY D4 00039 CLRL 126(R9) : 0862) 
6E 76 «=6A9) «9E 0003C MOVAB 118(R9), (SP) : 08635 
00 BE 04 BOON CLRL a0(SP) 3 
53 D4 0004 CLRL MAT_LEN 3; 0864 
04 6C 91 00045 CMPB (APY, #4 3; 0865 
06 12 00048 BNEQ 1$ 3 
1C AE 01 DO O004A MOVL #1, RECURSIVE : 
03 «11 Bobes BRB 2$ 3 
1C AE D4 00050 1$: CLRL RECURSIVE 3 
1C AE ODD 00053 2$: PUSHL RECURSIVE ; 0870) 
08 AE DD 00056 PUSHL 8(SP) : 
FE12 CF 9¢ fe Spee CALLS eee EXCHSRTACP_CONSOLIDATE ; 
OC AE ) $25 MOVL RO, ST : 
03 AE &8 9006 BLBS § STATUS, 3$ ; | 
01DA 31 00066 BRW 26$ 3 
54 D4 00069 3$: CLRL EXACT_MATCH ; 0876 
55 é DO B268 MOVL #50, FLAGS : 0877 
DD 06 4$: PUSHL FLAGS : 0878 
9 0D 000 PUSHL 3 
0000v CF 9s F 007 CALLS #2, EXCHSRTACP_NEXT_ENTRY 3 
3 05 0007 TSTL CUR ; 
3 1 079 EQL 12$ 3 
51 08 AO 3C 00078 MOVZWL 8(CUR), LEN ; 0884 | 
0c AC b O7F TSTL START ; 0888 
1¢ 13 00082 BEQL 6$ 3 | 
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CMPL 
BGEQU 
oeyt 


8 
START, 114(R9) 
WEXCHS_STNOTAVAIL, RO 
114(R9), LEN, R2 


EXACT_MATCH 
, MAT_LEN 
_LEN 
MAT_LEN 
MAT-ENT 
P), MAT_SEG 
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(R95, MAT_BLK 
CT_MATCH,~4$ 
_LEN 
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ie é EOS 

Os; (§p) 


gi*Aa -(SP) 

Ht pro occ 

a § #4, 1(E0S), #8 
START 


START, MAT_BLK 
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EXCHSRTACP RT11 directory routines 1h-s0 -1984 01:19:05 AX-11 Bliss-32 V4.0-74 Page 31. Exe 
v04-000 exchS$rtacp. find. empty. area (ctx, blocks, start) 12286571382 93:38:88 LEXCHNG. SRC EXCRTACP.B32;1 ’ a3) v04 
49 13 0014C BEQL 18$ : : 3 
50 02 A64A 3 a4 MOVAW (EOS) CENT _LENJ, RO + 1007) : 3 
08 AE 30 D1 001 CMPL RO (SP) : :] 
C 1F 001 BLssu 178 : | : 
45 1c ~AE ES 1 9 BLBC RECURSIVE, 19$ + 1010) i] 
50 000000006 8F Bo 0140 MOVL #EXCHS_RT11_OVERFLOW, RO : 1014 | : ! 
Py . 
58 58 D9 0165 17$ MOVL_ MAT_ENT, EMP ; 1019, :] 
50 56 38 C3 00168 SUBL3 EMP EOS, RO : 1020) 7) 
57 02 0 3 d016 MOV (RO), SL ; | - 
6A48 68 57 28 001 MOVCS SL, (EMP), (ENT_LEN)CEMP) + 1021 ; 1 
28 2A CO 0017 ADDL2 ENT_LEN, MAT_ENT : 1028 2] 
& AS 178 ADDL2 ENTILE : 102 :] 
OE 00 a 09 C o178 MOVCS #0,~(SP5, #0, #14, (EMP) + 1024 : } 
01 As 02 90 ett MOVB #2, 1(EMP) + 1025 : 1 
57 0c ac 10 Ag C3 00185 SUBL3 MAT BLK. START, SL + 1026 :] 
08 As 57 BO 00188 MOVW SL, 8 (EMP) + 1027 : 1 
08 AB 57 A2 0018F SUBW2 SL, 8(MAT_ENT) : 1028 : 1 
10 AE 57 CO 00193 ADDL SL, MAT_BLK + 1029 : 1 
50 02 AA46 SE 00197 18$:  MOVAB 2(ENT LEN)CEOSI, RO ; 1035 : 1 
08 AE 50 D1 0019¢ CMPL RO, 8TSP) : 3 
OE 1F OO1A0 BLSSU : 7] 
71 1C AE €9 001A2 19$:  BLBC RECURSIVE, 24$ + 1038 i] 
OC AE 000000006 BF DO O01A6 MOVL HEXCHS_RT{1 OVERFLOW, STATUS ; 1040 i 
58 5B 5A C1 00180 208: ADDL3 ENT_LEN, MAT_ENT, EMP : 1050 31 
56 58 C2 001B4 SUBL2 EMP, R6 3 1051 a. 
57 02 Ad SE 00187 MOVAB 2(R6), SL F 21 
6A48 68 57 28 001BB MOVC3 SL, (EMP), (ENT_LEN)CEMP) : 1052 37 
OE 00 6E 09 2c 601¢0 movcS #0, (SP), #0, #74, (EMP) : 105 : : 
01 Ag 02 90 001C6 MOVB = #2,,:«1 (EMP) + 1054 31 
72 Ad 10 AE 00 OO1CA MOVL MAT_BLK, 114(R9) : 1058 39 
00 BE 14 AE DO OO1CF MOVL § MAT~SEG. @0(SP) : 1059 31 
7A ASD 18 AE DO 00104 MOVL SEG, 122(R9) + 1060 31 
7E AQ 5B DO 00109 MOVL_ MAT_ENT, 126(R9) + 1061 31 
38 AD 6B OE 28 0010D MOVC3 #147 (MAT_ENT), 56(R9) : 1062 
14 AE DD O01E2 PUSHL MAT. SEG + 1064 
08 AE ODD OOIES PUSHL  8(SP) : 
000000006 EF 0 FB 0168 CALLS #2, EXCHSRT11_DIRSEG_PUT ; 
OC AE 1 DO OO1EF MOVL #1. STATUS > 1065 
0 11 OO1FS BRB > 0969 
oc AC 03 OOiF 21$: =‘ TSTL TART : 1073 
OA 13 001F8 BEQL : 
OC AE 000000006 er 00 O01 MOVL HEXCHS_STNOTAVALL, STATUS : 1075 | 
08 AC D3 0204 22$: —‘TSTL BLOCKS + 1076 
04 13 00207 BEQL : 
OA 1¢ AE €9 00 09 BLBC RECURSIVE, 24$ : 1081 | 
0c AE 000000006 if bo 0 i 23$: HOVE #EXCHS_VOLUME FULL, STATUS ; 1083 
E pA 0217 24$:  CLRL (SP) > 1085 
7E 08 AC 7D 00219 OVO BLOCKS, -(SP) ; 
59 DD 0021D PUSHL : 
FDDC CF 04 FB O021F CALLS #4, EXCHSRTACP_FIND_EMPTY_AREA : 
04 00224 RET 3 
| 
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EXCHSRTACP RT11_ directory routines 16-Sep-1984 13383 ee Bliss-32 V4.0-74 
v04-000 exch$rtacp_find_empty_area (ctx, blocks, start) 14-Sep-1984 12:29:08 EXCHNG.SRCJEXCRTACP.B32;1 
04 AE DD 00225 25$: PUSHL  4(SP) 
0000v CF 01 FB 00228 CALLS #1, EXCHSRTACP_VERIFY_DIRECTORY 
13 50 £8 0022D BLBS 
7E CO 8F 9A 00230 MOVZBL #192, =(SP) 
01 DD 00234 PUSHL #1 
00000000G 8F DD 00236 PUSHL aytcns BADLOGIC 
000000006 98 03 FB 0 if CALLS #3, LIBS$STOP 
0 OC AE i} 02435 26$: MOVL STATUS, RO 
4 00247 RET 
; Routine Size: 584 bytes, Routine Base: EXCHSRTACP_CODE + O41E 
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S2338 & 


-Sep-1 EXCHNG.SRCJEXCRTACP.B32;1 


$4 


FUNCTIONAL DESCRIPTION: 


---@ 
rr 


S233 


ROUTINE VALUE: 


SEAS 


true if able to find the file, false otherwise 


1 ! 
O12 ! 
Bt? Search an RT=11 directory for a specific file 
O19 ' INPUT: 
018 ! 
019 ! ctx - pointer to an RTIICTX structure 
020 ! name - pointer to the start of the file name for which to search 
8 1 } name_len - length of the name 
0 ¢ ' IMPLICIT INPUTS: 
024 ! 
025 ! none 
026 ‘ 
S44 OUTPUTS: 
Oe ctx - if a file is found, the context block will describe it 
031 ' IMPLICIT OUTPUTS: 
O36 ! 
03 ' none 
0 ‘ 
0 ! 
0 ' 
0 ! 
0 ! 
1 
i 
i 
i 


Be Be Se Se ee Fe Se Be Se Ge Be Oe Se Se Se Fe Se Ge Ge Fs Ge Se Ge Se Ge Ge Se Se Ge Se Ge Se Se Se oe Fe Ge Se Ge Se Se Se Se Se Se SH Se Se Ge Se Se Se Se Seas ee. 
me a ak a et me a ke a tk ed td dd a = = = a sd 4 
me ee em ed ed wd wd wd dd od od 
ee Ee SSS 
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7 
38 
039 SIDE EFFECTS: 
040 
041 none 
ots loo 
Rez $dbgtrc_prefix ('rtacp_find_file> '); 
045 BIND 
pee volb = ctx (rtlictx$a_assoc_volb] : $ref_bblock 
048 ; 
049 $Sblock_check (2, .volb, volb, 557); 
34 $debug_print_fao (‘entry = ctx !XL, name ““!AF’’*, .ctx, .nmame_len, .name); 
036 Loop through the directory looking for permanent files 
Ose WHILE exch$rtacp_next_entry (.ctx, rtnxtSm_permanent) NEQ 0 
056 
444 : Check to see if the this filename matches the one we are looking for. If so, simply return true. 
023 if exchScad_match_filenane (.ctx Crtlictx$l_exp_fullname_len], ctx Crtiictx$t_exp_fullname], .name_len, 
bes RETURN true; 
568 RETURN false; ! Made it through without a match, return false 
064 END; 


1 250 ROUTINE exch$rtacp_find_file (ctx : Sref_bblock, name, name_len) = ZSBTTL ‘exch$rtacp_find_file. 
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Pad 
ee ee ee ee Ee ee ELL ex 


7 ae 
7 al a snchOrtoce Tika tite tats, name, name_len) 12: = 138 9}: 33: 83 EXCHNG’ SR tie tent AtP.043; 31 Page 13 


EXC 
; v04 
$1 
s 1 
iz 
000¢ .ENTRY EX a FIND. FILE, Save R2,R3 3 1093 : 1 
53 04 AC 14 Ci 8 0 ADDL3 = #2 : 1130 :] 
2 04180083 BF bo 0 OVL Hi gris 46 we + 1133 31 
1 2D : ¢ § MOVZWL of : 3 1 
0 sooooo00e fF fe Sonia meee RS) RO suri _BLOCK_CHECK ; | 
53 04 AC 00000054 i C1 O01¢ ADDL3 #84, C RS + 1143 :] 
5 04 ac dO 99 MOVL (CTX, Roe : :] 
01 OD 9 1$: PUSHL #1 + 1138 : 1 
04 AC DD 00028 PUSHL (CTX : a. 
0000v CF 02 FB 000 f CALLS #2, EXCHSRTACP_NEXT_ENTRY : ; 1 
50 D 900 STL RO ; 21 
19 13 00035 EQL =—s2'$ : 
08 AC 0D 00037 PUSHL NAME + 1143 
0c AC DD 0003A PUSHL NAME_LEN : 
53 DD 0003p PUSHL : 
46 A2 DD 0003F PUSHL 70(R2) : 
000000006 EF 04 FB 0042 CALLS #4, EXCHSCMD_MATCH_FILENAME : 
DD 50 £9 0004 BLBC ~—_ RO, -1$ : 
50 01 00 0004¢ MOVL #1, RO + 1145 
04 0004F RET : 
50 D4 00050 2$: CLRL RO + 1147 
04 00052 RET : 1148 
; Routine Size: 83 bytes, Routine Base: EXCHSRTACP_CODE + 0666 
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v04-000 exchSrtecp.next_entry (ctx, flags) 1 ~3007 1382 9338: 88 LEXCHNG. SRE EXCRTACP.B32;1 ’ (14) 
3 } 1182 1 S.06AL ROUTINE exch$rtacp_next_entry (ctx : Sref_bblock, flags : Sbblock) = ZSBTTL ‘exch$rtacp_next_entr. 
:1 11 \¢4 
; 198 11 : 
; 139 i ? } FUNCTIONAL DESCRIPTION: 
; 10r¢ 1155 ! Return the next entry from an RT-11 directory 
: 107 11 $ : 
; 1074 11 ! INPUT: 
; 1075 1138 : 
3 1978 115 : ctx = pointer to an RTIICTX structure 
3 ia 4 1189 } flags - a structure of bits with the following meanings: | 
3; 1079 1196 : flags (rtnxt$v_permanent] - return the address of the next permanent entry 
; 1080 116 : flags irtnxt$v_empty] - return the address of the next empty entry 
; 1081 1164 : flags pennezeacentes tyes - return the address of the next tentative entry 
5 1OS6 1165 ; flags Urtnxt$v_unknown - return the address of the next entry with invalid 
: 108 1198 : flags Ertnxt$v_skip_check] - skip the check for a moved entry 
s Hb : 13ee flags [rtnxt$v_skip_expand] - skip expanding the radix-50 name to ascii 
; 1086 1169 ! More than one flag can be set if more than one type of _— is desired. The end-of-segment qntry can not 
§ ie 1329 returned, but the caller can examine the (rtlictx$l_seg_number] and interpret a change as an implicit eos. 
: 1089 1176 ! IMPLICIT INPUTS: 
; 1090 117 : 
3; 1091 1174 ; anything we can find hanging off the context block 
; 1098 1175 : 
; 109 1176 ! OUTPUTS: 
3 1094 1177 ! 
; 1095 1178 : none 
; 1096 1179 : 
3 ha 4 113 : IMPLICIT OUTPUTS: 
3 444 186 : the context block is updated with context necessary for wildcard processing | 
3 1101 1184 ' ROUTINE VALUE: 
3 1108 1185 ‘ 
; YS 1138 address of the next entry, 0 if no more entries of the desired type 
3; 1105 1188 ! SIDE EFFECTS: 
3 1196 1189 : 
3; 110 1190 : none 
; 1108 1191 leo 
3 119% 1138 
3; 1110 119 $dbgtrc_prefix (‘rtacp_next_entry> '); 
31111 1194 | 
ag 1196 3 oes gi | 
; et_dirse 
> 1114 1199 Start. block, | 
3; 1115 1338 seg_num, : 
3 1116 11 seg : $Sref_bblock, / ! a pointer to the current directory segment | 
3 aie ’ 4 ent : Sref_bblock ! a pointer to the current directory entry | 
3 149 1 8 
3; 1120 1 BIND 
: i } : Be volb = ctx (rtlictx$a_assoc_volb] =: $Sref_bblock 
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Sofock- print. f (‘entry = ctx ‘Bas, Ctx); 
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Sblock_check™ ( “ets rtlictx 
Sblock-check ( -volb, vo 
Slogic-check (5; (exch$rtacp. verify. directory (.volb)), 212); 
: If the context segment number is null, then we are starting from scratch to find the file 
if .ctx Crtlictx$l_seg_number] EQL 0 
THEN 
BEGIN 
Start with the first directory segment 
seg_num = 1; 
: Set flag that we must read a directory segment pointer 
get_dirseg = true; 
END 
If non-null, we are doing a subsequent lookup in a wildcard search 


ELSE 

BEGIN 
! Check that the Stregtery Bayt | positions are still good. The entry might have moved - if so repositio 
i the new location. he skip_check option cannot be used if there is any possibility of any directory 
modifications a calls. 

4 if Not (.flags Crtnxt$v_skip_check]) 

exch$rtacp_check_position (.ctx); 

, oe the segment, entry, and start block, and adjust to point to the next entry 


= .ctx (rtlictx$a_seg_address]; ' Get our seg from the context block 


= .ctx reiictsse, ent_addressJ; i Get the en ry from the context block too 
oe8.. num = .ctx (rtlictx$l-seg_ number]; Get the segment number 
start_block = es Length of current entry 
ctx Crelictx$l_start_block] + sent rtilent$y. blocks]; 
ent = .ent + on $k_length ! Skip the pointer to the next entry 
+ rtTihdr$w_ extra_bytes); 
ctx (rtlictx$a_ “on address] =".ent; ! Save it in the context block too 


Clear the flag, we don't need to read a directory segment pointer right now 
get_dirseg = false; 
END; 


el em ed a = dd od od od 
ee ee eee 
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el ad aed ee ee eed ed a ee ee a ce a a a ed ed ea ed ee ee de ee ee ee ed ee ee ee ed ee ae ec ee ee ed ee ed 
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3 


iT 
| 
| 
: 1375 } § | Loop through the directory looking for this file 
; N77 g WHILE .seg_num NEQ 0 | 
; 1179 1260 BEGIN | 
; 1181 126 IF .get_dirseg | 
311 ; 126 THEN 
711 1264 
311 1265 4 | 
; 1185 1266 4 ! Get a pointer to the current segment 
; 1138 1 ° 4 : 
3 71 1 3 4 seg = onchOrt)).¢}rseg_get £;volp -$eg_num) ; 
; 1188 1269 Slogic check (27 (.seg-NEQ 0), 156); 
; 1189 1270 4 start_Block = $99 rtlihdr$w_start_block]; ! Fetch the pbn where the first file in this segment 
3 1139 : 4! 2 ent = .seg + rtiihdr$k_length; ! Get a pointer to the first directory entry 
Sh et me 
: 1132 : t get_dirseg = true; ! We always want to get additional segs 
: 1196 1277 4 WHILE (.ent LSSU (.seg + rtli$k_dirseglen)) 
3 1197 1278 3 DO 
: 1198 1279 4 BEGIN 
; 1199 1280 4 
3 : sf ; 3 ? } Process the entry depending on its type 
31 4 1285 4 CASE .ent C[rtllent$v_type] FROM 0 TO rtilent$m_typ_end_segment OF 
: 120 1284 4 SET 
3 1204 1285 4 
. ! Be ! ? Crtilent$m_typ_permanent] : 
: 1207 1288 5 BEGIN 
; 1208 1289 5 
: 1209 1290 5 IF .flags C(rtnxt$v_permanent) 
: 1210 1291 5§ THE 
3: 1211 1292 6 BEGIN 
3 7 \¢ 1293 6 
; : LF ; >e e } Copy the standard porticn of the entry to the context block 
; HE +4 ? CHSMOVE (rtllent$k_length, .ent, ctx Crtllctx$t_entry)); 
; : 1? 1398 6 Expand the directory entry filename information into the context block 
; 1319 1306 ? iF NOT (.flags Crtnxt$v_skip,expand]) 
; 3 1308 ? exch$rt1l_expand_filename (.ctx); 
; 15 : P 130% 6 $debug_print_fao ("Found “!AF!AF’, .volb Cvolb$l_vol_ident_len], volb Evolb$t_vol_ident 
: \see 1303 ? -ctx Crtlictx$l_exp_fillname_lend, ctx Crtlictx$t_éxp_Ffullna 
; 13 $ 1307 ? Save the directory position in the context block 
; 1228 1309 6 ctx Crtlictx$l_start_block] = .start_block; 
3: 1229 1310 6 ctx (rtlictx$l_seg_number] = .seg_nim; 
3 7 1311 6 ctx [rtlictx$a_seg_address] = .seg; 
3; 1231 1312 6 ctx (relictx$a_ent_address] = .ent; 
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RETURN .ent; 
END; 


_ 
Ww 


start_block = .start_block + .ent (rtilent$w_blocks]; 
END; 
Crtilent$m_typ_tentative) : 

BEGIN 

A C(rtnxt$v_tentative] 
BEGIN 
Copy the standard portion of the entry to the context block 
CHSMOVE (rtilent$k_length, .ent, ctx Crtlictx$t_entry]); 
Expand the directory entry filename information into the context block 
4 NOT (. flags C(rtnxt$v_skip_expand]) 

exch$rtll_expand_filename (.ctx); 


$debug_print_fao ("Found “!AF!AF', .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident 
-ctx Crtiictx$l_exp_fuliname_lenJ, ctx Crtlictx$t_éxp_Fullna 
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Save the directory position in the context block 
ctx rtlictx$l_start_block] 


NOMORORORORONONONONY 
FFP RCA OR OR ORO ces 
NAME WN OODNAUE WN SO ODNAUEWN MOOD NAV EWN MOOR NOUE 


ao 


a a a a a et ee a a a a a dd 
a ee ee ed dd ed 


Expand the directory entry filename information into the context block 


8 34 = .start_block; 

64 4 ctx irtlictx$l_seg_number] = .seg_num; 

65 4 ctx [rtlictx$a_seg_address] = .seg; 

r$] 4 ctx [rtlictx$a_ent_address] = .ent; 

é d | 
68 4 RETURN .ent; 

4 3 END; | 
a ; start_block = .start_block + .ent (Crtllent$w_blocks); | 
7 5 END; 

74 5 

Ne 2 Crtilent$m_typ_empty] : 

7 58 BEGIN 

78 59 

79 0 IF .flags (rtnxt$v_empty] | 

80 1 THEN 

5 § BEGIN | 

68 : : Copy the standard portion of the entry to the context block | 

85 CHSMOVE (rtilent$k_length, .ent, ctx Crtlictx$t_entry]); | 
| 
J 


exch$rt11_expand_filename 


Save the directory position 


ctx (rtlictx$l_start_block] 
ctx (rtll _5eg_ 
ctx [rtllctx$a_seg_address 
ctx Ertlictx$a_ent_address 


RETURN .ent; 
END; 


ee 


o 
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3 
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ie | 
nnuun 


| 
if NOT (. flags Crtnxt$v_skip_expand]) | 


Sdebug_print_fao ("Found ‘‘!AF!AF'’', * 
Ctx Creilctx$l_exp_fullname_len » ctx 
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(.ctx); 


volb Cvolb$l_vol_ident_lenJ, volb fvolase_vol ident 
rtlictx$t_éxp_Fullna 


in the context block | 
-Start_block; 
-$eg_num; 


Seg; 
ent; 


Crtilent$w_blocks); 
| 


Copy the standard portion of the entry to the context block 
CHSMOVE (rtllent$k_length, .ent, ctx Crtlictx$t_entry]); 
Expand the directory entry filename information into the context block 


(.ctx); 


$debug_print_fao ("Found "!AF!AF', .volb Cvolb$l_vol_ident_lenJ, volb Cvolb$t_vol_ident 
-ctx Creiictx$l_exp_fullname_len], ctx Crtiictx$t_exp_Fulina 


in the context block 


-Start_block; 
-Seg_num; 
-$eg; 

-ent; 


Crtilent$w_blocks); 


; } ! 7 

: 1 1 

3; 1 § é 

3 4 1374 6 

: ie § 

71 i377 & 

3 1 6 

3; 1 1 6 

3 1 1380 6 

7 1382 & 

; i i $ 6 

: i 

: 1 138 start_block = .start_block + .ent 
: 130 1388 - Meer exes, 
| oe ne 

; 1310 1391 4 CINRANGE, OUTRANGE) : 

3 1311 1 3 by 

ane BEG cae 

: 1314 1395 IF .flaos Crtnxt$v_unknown) 
ep 1B cng SE 

: 1317 1398 6 

3; 1318 1399 6 

3; 1319 1400 6 

: 1320 1401 6 

: 138) 1008 6 

We igh 

3 1336 1¢32 ? if wor (.flags [rtnxt$v_skip_expand]) 
; 1336 1407 6 exch$rt11_expand_filename 
3 1367 1408 6 

3; 1328 P 1409 6 

ee 

3 1 1 141g 6 ! Save the directory position 
31 : 1414 6 ctx Crtlictx$l_start_block) = 
31 1415 6 ctx [rtlictx$l_seg_number] = 
; 1335 1213 6 ctx (rtlictx$a_seg_address] = 
: ' ie ? ctx (rtlictx$a_ent_address] = 
31 1219 RETURN .ent; 

; ' ip 1° 9 END; 

; : 1 1? § start_block = .start_block + .ent 
ie oe Y ~ 

> 1345 1426 4 (rtilent$m_typ_end_segment) : 
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EXITLOOP; 

TES; 

Skip to the next entry 

ent = .ent + rtilentSk_length + .seg [rtlihdr$w_extra_bytes]; 

END; 
Skip to the next segment 
seg_num = .seg [rtilhdr$w_next_seg]; 
END; 
} Mark the context with an invalid segment number to prevent recycling through the directory 
ctx Crtlictx$l_seg_number] = -1; 
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OFFC 00000 ENTRY EXCHSRTACP NEXT ENTRY, Save R2.R3,R4.R5,R6,-; 1149 
5E oc C 90002 SUBL2 a8. sp F 
5 04 AC 00 0000 MOVL > 1204 
52 008200F4 8F pO 00009 MOVL HS R2 + 1207 
51 0228 8F %3C 00010 MOVZWL ; 
50 57 00 00015 MOVL “bo : 
900000006 cf 16 00018 JSB ExtuEUTIL BL BLOCK. CHECK ; 
52 041800F F 00 OO01E MOVL #688789 + 1208 
51 229 «BF 3C 000 MOVZWL  # ; 
50 14 AZ DO O002A MOVL 20(R?) ; 
000000006 EF 16 0002E JSB ExcHsutit, BLOCK_CHECK ; 
58 76 A? YE 000 MOVAB 118(R7), R11 + 1213 
6B D5 000 TSTL (R11) : 
08 12 O003A BNEG ‘1 ; 
SA 1 pO 0003c MOVL #1, SEG_ > 1219 
6E 1 DO 0003F MOVL #1. GET"DIRSEG : 1 23 
E 11 00042 BRB 3$° : 121 
07 08 Ac 4 EO O44 1$: BBS a, FLAGS, 2$ : 38 
FSF? CF 01 F O0e8 CALLS #1, EXCHSRTACP_CHECK_POSITION : 
58 7A AT OD 2s: MOVL 1gecR2), SE S + 124 
er 2: terrae Be) | 
59 9 Ag aC B MOVZWL SCENTS START BLOCK + 1246 3 
9 A F ADDL2 114(R75, STA TART_BLOCK : : 
4 8 nose 9E bone? MOVAB’ SGtRODCENT, ENT Petes 
7E 3 56 Hi t MOVL ENT, CENT > 1249 : 
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; Routine Size: 320 bytes, Routine Base: EXCHSRTACP_CODE + 0689 


8 


IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
true if valid, false if not 
SIDE EFFECTS: 
error conditions will be signaled 
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19 14 9 1 St Oat ROUTINE exch$rtacp_verify directory (volb : $Sref_bblock) = RSBTTL ‘exch$rtacp_verify_directory 
Me lee 
7 : 
1 FUNCTIONAL DESCRIPTION: 
% Traverse the directory and check it for validity. We also count the number of blocks. 
8 ; INPUTS: 
$4 volb = pointer to volb which has been connected to the RT-11 device 
8¢ i IMPLICIT INPUTS: 
8 ! 
84 ! none 
85 ! 
38 OUTPUTS: 
$60 ; blocks - address of longword to receive number of blocks 
i 
} 
} 
i 
} 
} 
} 
} 
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dbgtrc_prefix (‘exch$rtacp_verify_directory> '); 


OCAL 
rtv : Sref_bblock, 
seg : Sref_bblock, 


SF 
- 


& 


' a pointer to the rti1l volb extension 

' a pointer to the current directory segment 
ent : $ref_bblock, a pointer to the current directory entry 
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7 8 

8 8 
09 8 sum_blocks, ' running block count 

10 9 unknowns, ' count of unknown directory entries 

11 9 seq_nun. 

i 9 end_segment_seen, 

1 9 missing_end, 

14 9 status 

15 9 ; 

i 

+44 $debug_print_lit ("entry"); 

Y + Sblock_check (2, .volb, volb, 470); 
; Bs : Assume that we will find a bad directory 

5 08 status = 0; | 
$¢ Be unknowns = false; ' Clear the unknown entry flag 


missing_end = 0; 
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$ Get the pointer to our volb extension and to the root segment 
; ecj tic: 

erty, ¢ gre 

$t“dlock (513° * rt11$k_root_block); 

Start with the first directory segment 


Oooo 


Sblock check ( 
seg = rtv (rt 


= .volb Ret vfmt 
seg_num = 1; 
} Assume that the files will start after the last segment 


ian blocks = rt11$k_root_block + (2 * .seg Crtiihdr$w num seg 
Sdebug_print_fao (‘number of segments !UL", .seg CrtiThdrSw_ oe: {re 


Fe at oP 


Loop through all the segments in the directory 
ee -seg_num NEQ 0 

BEGIN 

Get a pointer to the current segment 


NAMES WN" OOONOUES WO 0M 


PIPPIN 2 2 


seg = exch$rtil_dirseg_get (.volb, .seg_num); 
if -seg EQL 0 


N 
RETURN false; 
; If the current segment start block is not what we expect, signal and use new value 


Fg ome blocks NEQ .seg [rtiihdr$w_start_block]) 


BEGIN 
$Sexch_signal (exch$_rt11_stbloc 
sua. blocks = .seg (rtiihdr$w_ rar block]; 
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$debug_ print_fao (‘expected block !UL, actual block !UL", .sum_blocks, .seg [rtlihdr$w_start_block]); 
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Get a pointer to the first directory entry, then loop 
ent = .seg + rt11hdr$k_length; 
end segment_seen = false; 
WHICE sent LSSU (.seg + rt11$k_dirseglen)) 
BEGIN 
Advance our count 
CASE .ent Crtllent$v_type] FROM 0 TO rtllent$m_typ_end_segment OF 


PET Tontea f7a.centet tvs. rtilent$m_typ_empty, rtilent$m_typ_permanent] : 


eeobun pr Snt..f50 ("entry type !XB, size !UL*, .ent Crtilent$b_type_byte], .ent Crtilent$w_bl | 
) 


sum_blocks = .sum_blocks + .ent Crtilent$w_blocksJ; 


Crtllent$m_typ_end_segment) : 
BEGIN ~ “_ 


end_segment_seen = true; 
EXITLOOP; 


ND; 
CINRANGE, OUTRANGE] : 
BEGIN 


unknowns = true; 


Sdebug_print_fao (*(unknown) entry type 'XB, size !UL*, .ent Crtilent$b_type_byte], .ent (rt 
° | 


pa’ cks = .sum_blocks + .ent (rtilent$w_blocks]; 
TES; 
Skip to the next entry 
ent = .ent + rtilent$k_length + .seg Crtlihdr$w_extra_bytes]; 
END; 

Holler if we didn't see the end segment 

IF NOT (.end_segment_seen) 

THEN 
missing_end = true; 

Skip to the next segment 

seg_num = .seg [rt1lhdr$w_next_seg]; 


ea 
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EXCHSRTACP RT11_ directory routines ese 1984 01:19: AX-11 Bliss-32 V4.0-74 Page 46, E 
v04-000 exch$rtacp. verify directory (volb) 14-Sep-19 4 93:38:88 EXCHNG SRETEXCRIACP.03951 (20) | V 
} 39 H Assume now that we have found a valid directory ; 
% status = true; : 
} iy If we saw any bad entries, signal and write lock the volume ‘ 
1 38 if unknowns OR .missing_end ! Unknown format of some entries or missing marker ‘ 
98 BEGIN | : 
99 LOCAL : 
BY sig_stat; | ° 
2 Oe sig.stat = (IF .unknowns THEN exch$_rtil_unkent ELSE exch$_rt11_noend); ! Get the proper signal oone | ; 
3 Signal if this is the first verify, or if we have write access ‘ 
iF NOT .volb Cvolb$v_verified) ; 
-volb Cvolb$v_write] 
; THEN 
Sexch_signal (.sig_stat, 0, exch$_rtll_errlock); 


Fail the directory validation this is not the first and we have write access 
IF .volb Cvolb$v_verified) 
wos Cvolb$v_write] 
status = false; 
pots Cvolb$v_write] = false; ! Force a write lock 


$debug print fao ("volmaxblock !UL, sum blocks !UL", .volb Cvolb$l_volmaxblock], .sum_blocks); 
-vO 


F CvoTb$l_volmaxblock] NEQ .sum_Blocks 
THEN 
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BEGIN 
: If the volume is Larger than the device there is no hope 


$debug_print_fao ("devmaxblock !UL, sun_bhocks 'UL', .volb Cvolb$l_devmaxblock], .sum_blocks); 
iF goun—dlocks GTRU .volb Cvolb$l_devmaxblock 


Ww 


BEGIN 

$Sexch_signal (exch$_rtli_dirsize, 4, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident], 
-sum_blocks, .volb Cvolb$l_devmaxblock], exch$_rt{l_errlock); 

pots Cvolb$v_write] = false; 


! If this is the first time that the directory has been verified, store 
the calculated value as the real value. 
IF NOT .volb Cvolb$v_verified] 
THEN 

BEGIN 
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1 Check if the block count is what we expected 
4 
4 
4 
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EXCHNG.SRCJEXCRTACP.832;1 
nG f ocheck (3, (.volb volbst _volmaxblock] EQL .volb Cvolb$l_devmaxblock]), 190); 
wold Lvolb$l _volmaxblock .sum_blocks; 


Otherwise, we have corrupted the directory since we started 


Set the verification flag 
eth Cvolb$v_verified] = true; 


4 
4 

4 

4 

4 ! 

ELSE 

Slogic._check (0, (false), 316); 
END; 

; 8 fo -Status; 


EXTRN EXCH$_RT11_STBLOCK 
-EXTRN EXCH$_RT11_UNKENT 
EXTRN EXCH$~RT11~NOEND 
EXTRN EXCH$_RT11_ERRLOCK 
EXTRN EXCHS$-RT11~DIRSIZE 
OFFC 00000 .ENTRY EXCHSRTACP_VERIFY_DI 
R5,R6,R7,RB,RI,RIO,R 
SE 04 C2 00002 SUBL2 ; SP 
54 04 AC 00 00005 MOVL cB R 
52 041B00F3 8F DO 00009 MOVL  #68878579, R2 
51 01D6 «= BF 3C.:«00010 MOVZWL #470, R1 
50 54 DO 00015 MOVL R4, RO 
000000006 EF 16 00018 JSB EXCHSUTIL _BLOCK_CHECK 
A 7C OOO1E CLRQ WNS 
59 D4 00020 CLRL MISSING. END 
53 54 Ad DO 00022 MOVL  84(R4), RTV 
52 BB0E00F 3 BF p0 00026 MOVL 3012848171, R2 
51 01D7 Hf C Bo5 D MOVZWL 
50 3 D0 000 é OVL RTV, RO 
000000006 EF 16 00 JSB XCASUTIL _BLOCK_CHECK 
55 OCOE 3 H 00 MOVAB 3086(R3), SEG 
58 01 4 0004 MOVL #1, SEG NUM 
§ 65 3C 0004 MOVZWL (SEG), R2 
4 C4 0046 MULLg #2, SUM_BLOCKS 
5 CO 0004 ADDL SUM~BLOCKS 
DS 0004C 1$: TSTL a, UM 
12 004 BNEQ «2 
0084 31 0005 BRW 13$ 
0110 F BB 23: PUSHR #°M<R4 RED 
000000006 Ef F CALLS 2, EXCHSRT11_DIRSEG_GET 
03 1 ai BNEQ 
0110 3 63 BRW 4$ 
08 AS 10 9 FD 66 3$: CMPZV #0, #16, 8(SEG), SUM_BLOCKS 
1 C BEQL 
000000006 BF pd gE PUSHL aEXCHS RT11_STBLOCK 
000000006 00 1 FB 4 CALLS #1, LIBSSIGRAL 


—_—“-—-_-—-- ——  -— SO > YC ro'->SAOooa—sa eS 


mec ronr., Save R2,R3,R4,-; 
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EXCHSRTACP RT11 directory routines 18-3 ep-1984 AX-11 Bliss-32 v4.0 P 48 
Ten 000 exch$rtacp_ verify, directory (volb) 1 900-138 9}: 33: 88 EXCHNG. SRCJEXCRTACP. “B35, :1 29° (20) | 
8 AS 3C 00078 MOVZ2WL 8 (SEG), SUM BLOCKS 2 154 
2g g8 Ni} gE 7F 4$: MOVAB $i SES) ENT~ + 154 
5 p CLRL END SEGMENT SEEN + 154 
9 0400 CS 9 MOVAB 1022(R5), RO + 154 
06 A oF A MOVAB 6(SEG), R7 : 157 
D 5$: CMPL ENT. rb + 154 
1E BGEGU 11$ : 
51 01 A 04 0 EF 0009 EXTZV #0, #4, 1(ENT), R1 + 155 
001 00% 0045 o> FB bO8e bs “ioab | Saceaes : 
$oi3 0012 0012 ME Mitts $-6$.- : 
O01E OOAD $-6$,- ; 
$-6$.- : 
B$~68,- ; 
$-6$,- : 
7$-6$,- : 
ie : 
SA 01 p0 OOOAF 7$: MOVL #1, UNKNOWNS : 1567 
bE 08 A3 3C 000B2 8$: MOVZWL 8(ENT) : 1558 
52 6E CO 00086 ADDL2 (SP), SUM_BLOCKS : 
05 11 00089 BRB 10$ + 1553 
56 01 DO 000BB 9$ MOVL #1, END_SEGMENT_SEEN + 1562 
OA 11 0008 BRB 118 : 1561 
51 67 3C 000CO 10$ MOVZWL (R7) : 1575 
53 OE A143 9E 000C MOVAB eat) FENTI. ENT : 
cs 11 900ce BRB 5$ + 1547 
03 6 €E8 OOOCA 118 BLBS § END_SEGMENT_SEEN, 12$ : 1581 
59 01 DO 000CD MOVL #1, MISSING "END : 1583 
58 02 AS 3C 000D0 128:  movZwL 2(SEG), SEG ~NUM + 1587 
FF75 31 00004 BRW 1$ : 1523 
5B 01 DO 000D7 138: # MOVL #1, + 1592 
06 5A £8 OOODA BLBS | UNKNOWNS, 14$ : 1596 
3E 59 £9 00000 BLBC MISSING_END, 20$ : 
09 SA EO O0E0 BLBC KNO + 1602 
50 000000006 ar D0 OO0ES 14$: MOVL #EXCHS_RE11_UNKENT, SIG_STAT : 
50 000000006 7 00 OOdE¢ 15$:  MOVL @# XCHS_RT11_NOEND, SIG_STAT : 
48 AG YD OOF 16$: STB 702¢ > 1606 | 
05 18 00 re BGEQ sd * : 
11 48 AG E1 OO0F BBC #5, 72(R + 1608 
000000006 $F DD OQOED 178: PUSH MEK cHE_ RT ERRLOCK : 1610 | 
E D4 10 CLRL -(SP) 3 
39 DD 105 PUSHL $IG_STAT ; 
000000006 00 FB 001 CALLS #3, LIBSSIGNAL F 
48 Ae 9 105 18$:  TSTB 72¢R4) + 1614 
7 1 oi BGEQ ©-:«19$ ; 
02 48 AG 5 £1 113 BBC #5, 72(R4), 19$ > 1616 
' ba 011 CLRL_ STAT : 1618 
48 AG 20 BA OO11A 19$:  BICB2 #32, 72(R4) > 1620 
52 44 As D4 116 208: CPL (R4), SUM_BLOCKS : 1626 
40 AG é iF 104 CMPL SUM BLOCKS, 64(R4) + 1633 
1B 00128 BLEQU 218 : | 
000000096 F DD OO10A PUSHL #EXCHS_RT11_ERRLOCK > 1637 
40 A& DD 001 PUSHL  64(R4) ; 
52 DD 001 PUSHL  SUM_BLOCKS ; 
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EXCHSRTACP RT11 directory routines 16-Sep-1984 01:19: AX-11 Bliss-32 V4.0-74 Page 49. 
vive ty exchSrtacp.verify directory (volb) 1 ma 1 93333503 LEXCHNG SRe ERERYACE 63551 . (20) | 
62 AG 9F 001 PUSHAB 105(R4) P | 
65 A& DD 001 PUSHL 101(R4) : | 
4 DD 001 PUSHL #4 : | 
000000006 8F DD 001 PUSHL #EXCHS RT11_DIRSIZE : 
000000006 00 7 FB 0014 CALLS # BSSIGRAL : 
468 AG 0 BA 146A BICB2 #30, 72(R4) + 1638 
48 «AG 3 14E 218 TSTB = 72 (R4) + 1644 
9 1 1 BLSS 228 : 
44 AG 06 1 MOVL 5 M_BLOCKS, 68(R4) + 1648 
14 1 BRB $ + 1644 
7E 013¢ «68F «-3C 00159 228 MOVZWL #316, (SP) + 1654 
1 dO O15 PUSHL : 
000000006 8F DD 001 PUSHL HEXCHS BADLOGIC : 
000000096 00 3 EB 0166 CALLS #3, LIB$STOP : 
48 AG 80 BF 8 190 23$ BISB2 #128, 72(R4) + 1659 
0 B 00 001 é MOVL STATUS, RO + 1661 
04 0017 RET : 
50 D4 00176 24$: CLRL RO + 1662 
04 0017 RET 3 


; Routine Size: 377 bytes, Routine Base: EXCHSRTACP_CODE + 07F9 
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EXCHSRTACP RT11_ directory routines 1b-se 1984 9: AX-11 Bliss-32 V4.0-74 
east bo0 exch$rtacp_ verify Vdirectory (volb) ~ep-1 32 93: 8 ‘83 EXCHNG. SRC EXCRY ACP.B32;1 


3; 1587 1663 1 END 
; 1888 1664 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
: PSECT SUMMARY 
; Name Bytes Attributes 
: EXCHSRTACP_CODE 2418 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
H Library Statistics 
: eocceses Syabols ococeceo Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 1 9 1000 00:01.9 
: ~$255$DUA28: CEXCHNG.OBJJEXCLIB.L32;1 1151 74 6 79 00:01.4 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:EXCRTACP/OBJ=OBJ$:EXCRTACP MSRC$:EXCRTACP/UPDATE=(ENHS$:EXCRTACP) 


2418 coge + 0 data bytes 
: me: 

; Elapsed Time: 2: 3: 

; Lexemes/CPU-Min: 17630 


Memor "Y Used: 236 pages 
; Compilation Complete 
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